|
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.315 Beiträge
Delphi 12 Athens
|
Re: Objektliste sortieren
18. Mai 2008, 19:22
seit mindestens D7  CompareValue
Delphi-Quellcode:
uses Math;
function VergleicheWerte(Item1, Item2: Pointer): boolean;
begin
Result := CompareValue(TDatenObject(Item1).nr, TDatenObject(Item2).nr);
end;
Ein Therapeut entspricht 1024 Gigapeut.
|