Für jeden Datentyp eine eigene Hilfsfunktion schreiben:
Delphi-Quellcode:
function CompareInt(a,b:Integer):Integer;
begin
if a > b then Result := 1
else if a < b then Result := -1
else Result := 0; // a = b
end;
Aus Optimierungsgründen wird der Fall a=b als letztes abgehandelt, da die Wahrscheinlichkeit
viel geringer als a > b oder a < b ist.