Ich hab da ne Idee:
Delphi-Quellcode:
type
TItem = class
private
FBezeichnung: string;
FPreis: Single;
public
function ToString(): string;
constructor Create(aBezeichnung: String; aPreis: Single)
property Bezeichnung: string read FBezeichnung write FBezeichnung;
property Preis: Single read FPreis write FPreis;
end;
var
items: Array of TItem; // evtl. ins Form
// Im OnCreate oder so folgendes:
setlength(items, 2);
items[0] := TItem.Create('Grünschnitt', 3);
items[1] := TItem.Create('Keks', 0.50);
for i := 0 to High(items) do
ComboBox1.Items.Add(items[i].ToString())
//---------------------
// Zugreifen kannste dann ungefähr so:
if ComboBox.ItemIndex > -1 then
showmessage(inttostr(items[ComboBox1.ItemIndex].Preis));
Als kleiner Denkanstoß
Damit sind dann auch Daten und Anzeige getrennt
