paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 21:27:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Fix the compare functions of lists for integer types in unit IntegerList.

Browse Source 
git-svn-id: trunk@56400 -
This commit is contained in:
juha 2017-11-14 09:33:04 +00:00
parent c7ba603d21
commit c06635aeeb
1 changed files with 24 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
components/lazutils/integerlist.pas
View File

@ -47,22 +47,42 @@ implementation
function CompareByte(const Item1, Item2: Byte): Integer;
begin
Result := Item1 - Item2;
if Item1 > Item2 then
Result := 1
else if Item1 < Item2 then
Result := -1
else
Result := 0;
end;
function CompareCardinal(const Item1, Item2: Cardinal): Integer;
begin
Result := Item1 - Item2;
if Item1 > Item2 then
Result := 1
else if Item1 < Item2 then
Result := -1
else
Result := 0;
end;
function CompareInteger(const Item1, Item2: Integer): Integer;
begin
Result := Item1 - Item2;
if Item1 > Item2 then
Result := 1
else if Item1 < Item2 then
Result := -1
else
Result := 0;
end;
function CompareInt64(const Item1, Item2: Int64): Integer;
begin
Result := Item1 - Item2;
if Item1 > Item2 then
Result := 1
else if Item1 < Item2 then
Result := -1
else
Result := 0;
end;
{ TByteList }