[JVCL-Checkins] dev/JVCL3/run JvJCLUtils.pas,1.158,1.159 - CollectionSort now stops if there are less than two elements

[Olivier S. <ob...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4619/dev/JVCL3/run

Modified Files:
	JvJCLUtils.pas 
Log Message:
CollectionSort now stops if there are less than two elements as it is useless and potentially dangerous to do the sort in these conditions


Index: JvJCLUtils.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvJCLUtils.pas,v
retrieving revision 1.158
retrieving revision 1.159
diff -C2 -d -r1.158 -r1.159
*** JvJCLUtils.pas	21 Aug 2005 12:50:07 -0000	1.158
--- JvJCLUtils.pas	22 Aug 2005 15:13:48 -0000	1.159
***************
*** 9748,9751 ****
--- 9748,9752 ----
   if not Assigned(Collection) then Exit;
   if not Assigned(sortProc) then Exit;
+  if Collection.Count < 2 then Exit;
   CollectionQuickSort(Collection, 0, Collection.Count-1, sortProc);
  end;