@sidorion
die Funktion von marabu macht wohl etwas anderes als die Deine
die marabu Funktion vergleicht zwei Werte.
Deine subtrahiert zwei Werte.
Delphi-Quellcode:
function CompareInteger(i1, i2: Integer): Integer;
begin
if i1 < i2 then Result := -1 else
if i1 > i2 then Result := 1 else
Result := 0;
end;
Delphi-Quellcode:
function CompareInteger(i1, i2: Integer): Integer;
begin
Result := i2-i1;
end;
Grüße
Klaus