Objektliste sortieren

[Hansa]

Hi,

Kann man TObjectLists nur als string mit CompareText sortieren ? Momentan mache ich das so :

Delphi-Quellcode:

function VergleicheWerte (Item1, Item2: Pointer): Integer;
begin
(*
  Result := CompareText(TDatenObject(Item1).name,
                        TDatenObject(Item2).name);
*)
  Result := CompareText(TDatenObject(Item1).nr,
                        TDatenObject(Item2).nr);
end;

Aufruf so :

RohDaten.Sort(@VergleicheWerte); // Rohdaten = TObjectList Das auskommentierte geht. Wie soll ich jetzt die nr = integer behandeln ? Die Items haben auch noch real, boolean usw. Felder. Da gehts dann weiter. Muss da immer der Typ umgewandelt werden, oder gibt es Alternativen zu CompareText ? Unschön ist auch noch, dass Delphi Warnungen bringt wegen Pointer und @. Wie kriegt man die weg ?