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 ?