Objektliste sortieren

[himitsu]

seit mindestens D7 CompareValue

Delphi-Quellcode:

uses Math;

function VergleicheWerte(Item1, Item2: Pointer): boolean;
begin
  Result := CompareValue(TDatenObject(Item1).nr, TDatenObject(Item2).nr);
end;