Generics (Objectlist) in Komponenten

[sx2008]

Du könntest aber auch das Wort "Generics" mal temporär komplett aus deinem Gedächtnis streichen.
Denn die VCL bietet seit Delphi 2 einen Weg Objekte innerhalb TStrings zu speichern.
Eine Listbox hat ja das Property Items.
Man kann nun für jeden Eintrag in Items ein zusätzliches Object speichern.

Delphi-Quellcode:

var
  p : TMobilphone;
begin
  p := TMobilphone.Create;
  p.Name := 'S3';
  p.Preis := 599.0;
  listbox1.Items.AddObject('Samsung S3', p);

  p := TMobilphone.Create;
  p.Name := '4S';
  p.Preis := 599.0;
  listbox1.Items.AddObject('IPhone 4S', p);

Diese Objekte kann man natürlich auch wieder auslesen; is klar.
Damit kannst du TListBox, TComboBox, TMemo unverändert verwenden und zusätzlich Objekte speichern.

http://delphi.about.com/od/vclusing/..._addobject.htm
http://delphi.about.com/od/delphitip...gs-objects.htm