Delphi- Combobox

[jfheins]

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