Einzelnen Beitrag anzeigen

Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#2

Re: Remove in Generic TObjectList

  Alt 3. Nov 2008, 21:14
Hallo,

wenn ich das richtig verstanden habe, benötigt die Objektliste einen comparer zum Auffinden von Elementen - auch bei IndexOf().
Da ich aber selbst gerade dabei bin, meine ersten Gehversuche mit Delphi 2009 zu machen, wäre es gut, wenn ein "Wissender" den folgenden Code einmal prüfen könnte.

Delphi-Quellcode:
// uses Generics.Defaults

function CompareNames (const Left, Right: TRecord): Integer;
begin
  Result := CompareText(Left.Name, Right.Name);
end;

initialization
  RecLst := TObjectList<TRecord>.Create (
    TComparer<TRecord>.Construct(CompareNames)
  );
finalization
  RecLst.Free;
end.
Gruß Hawkeye
  Mit Zitat antworten Zitat