+ added TList.Sort overload with a sorting algorithm parameter

git-svn-id: trunk@41169 -

rtl/objpas/classes/classesh.inc

@@ -340,6 +340,7 @@ Type
     function Remove(Item: Pointer): Integer;
     procedure Pack;
     procedure Sort(Compare: TListSortCompare);
+    procedure Sort(Compare: TListSortCompare; SortingAlgorithm: PSortingAlgorithm);
     property Capacity: Integer read GetCapacity write SetCapacity;
     property Count: Integer read GetCount write SetCount;
     property Items[Index: Integer]: Pointer read Get write Put; default;

rtl/objpas/classes/lists.inc

@@ -774,6 +774,11 @@ begin
   FList.Sort(Compare);
 end;
 
+procedure TList.Sort(Compare: TListSortCompare; SortingAlgorithm: PSortingAlgorithm);
+begin
+  FList.Sort(Compare, SortingAlgorithm);
+end;
+
 procedure TList.CopyMove (aList : TList);
 var r : integer;
 begin