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;
|
