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