Axel, du hast eine Ausdrucksweise - da gibt es doch ein einfaches Heilmittel:
Delphi-Quellcode:
function CompareInteger(i1, i2: Integer): Integer;
begin
Result := -1 * (i2 - i1); // genial
end;
Grüße vom marabu
PS:
hatte den Dreher zuerst gar nicht gesehen...