|
Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
Delphi 6 Enterprise
|
Re: TObjectList
25. Jun 2005, 23:27
Delphi-Quellcode:
function CompareID(Item1, Item2: Pointer): Integer;
begin
Result := CompareText((Item1 as TName).Name, (Item2 as TName).Name);
end
Da musst du nicht Name, sondern ID vergleichen.
Katura Haris
Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
|