paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 06:20:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Add class TInt64List, a list of Int64.

Browse Source 
git-svn-id: trunk@56397 -
This commit is contained in:
juha 2017-11-13 19:13:49 +00:00
parent d2b1729095
commit 18f15c2e73
1 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/lazutils/integerlist.pas
View File

@ -20,8 +20,6 @@ interface
uses
fgl;
function CompareInt(const Item1, Item2: Integer): Integer;
type
TIntegerList = class(specialize TFPGList<Integer>)
@ -29,9 +27,20 @@ type
procedure Sort; overload;
end;
TInt64List = class(specialize TFPGList<Int64>)
public
procedure Sort; overload;
end;
implementation
function CompareInt(const Item1, Item2: Integer): Integer;
function CompareInteger(const Item1, Item2: Integer): Integer;
begin
Result := Item1 - Item2;
end;
function CompareInt64(const Item1, Item2: Int64): Integer;
begin
Result := Item1 - Item2;
end;
@ -40,7 +49,14 @@ end;
procedure TIntegerList.Sort;
begin
inherited Sort(@CompareInt);
inherited Sort(@CompareInteger);
end;
{ TInt64List }
procedure TInt64List.Sort;
begin
inherited Sort(@CompareInt64);
end;
end.