[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.21,1.22

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17893/Source/Core

Modified Files:
	InstantPersistence.pas 
Log Message:
Test of MaxCount fetching keys. Added test support in Primer

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** InstantPersistence.pas	13 Feb 2005 18:46:47 -0000	1.21
--- InstantPersistence.pas	18 Feb 2005 09:10:40 -0000	1.22
***************
*** 14816,14819 ****
--- 14816,14820 ----
        begin
          ObjectReferenceList.Add(CreateObjectReference(DataSet));
+         if (MaxCount > 0) and (ObjectReferenceList.Count = MaxCount) then break; 
          DataSet.Next;
        end;