Remove in Generic TObjectList

[Hawkeye219]

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