Objekt mit Objekt assoziieren?

[CalganX]

Hi,
wozu TListBox erweitern? Eine ListBox hat doch bereits eine TStrings (abstrakter Vorfahre von TStringList)-Eigenschaft. Und mithilfe von AddObject kann man dann auch ganz einfach Objekte, beliebigen Typs hinzufügen:

Delphi-Quellcode:

type
  TMyCustomObject = class(TObject)
    // beliebige Eigenschaften, Methoden etc.
  end;

{ ... }

var
  AnCustomObject: TMyCustomObject;
begin
  AnCustomObject := TMyCustomObject.Create;
  MyListBox.Items.AddObject('Caption', AnCustomObject);
end;

var
  ASavedObject: TMyCustomObject;
begin
  ASavedObject := MyListBox.Items.Objects[{Hier kommt die ID des Eintrags}] as TMyCustomObject;
end;

Chris