[Instantobjects-cvscommit] SF.net SVN: instantobjects: [668] trunk/Source/Core/InstantPersistence.pas

[<fas...@us...>]

Revision: 668
Author:   fastbike2
Date:     2006-04-24 16:01:01 -0700 (Mon, 24 Apr 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=668&view=rev

Log Message:
-----------
Bug fix for #1475841 "TInstantContainer.Sort error if empty"

Modified Paths:
--------------
    trunk/Source/Core/InstantPersistence.pas
Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas	2006-04-24 11:25:52 UTC (rev 667)
+++ trunk/Source/Core/InstantPersistence.pas	2006-04-24 23:01:01 UTC (rev 668)
@@ -6817,7 +6817,8 @@
 
 procedure TInstantContainer.Sort(Compare: TInstantSortCompare);
 begin
-  QuickSort(0, Pred(Count), Compare);
+  if Count > 1 then
+    QuickSort(0, Pred(Count), Compare);
 end;
 
 procedure TInstantContainer.ValidateObject(AObject: TInstantObject);