paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 18:29:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added TList.Sort overload with a sorting algorithm parameter

Browse Source 
git-svn-id: trunk@41169 -
This commit is contained in:
nickysn 2019-02-02 20:31:16 +00:00
parent c24d525b9f
commit e8dc54c768
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/objpas/classes/classesh.inc
View File

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

5
rtl/objpas/classes/lists.inc
View File

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