Zitat von
DGL-luke:
Öhm...
Delphi-Quellcode:
const
LB_CAPTIONS: array of string = ('Milch','Käse','Butter');
LB_VALUES: array of string = ('150','200','250');
//...
procedure TForm1.Listbox1Click(Sender: TObject);
begin
if Listbox1.ItemIndex <> -1 then
Label1.Caption := LB_VALUES[Listbox1.ItemIndex];
end;
procedure TForm1.OnShow(Sender: TObject);
begin
ListBox1.Items := LB_CAPTIONS; //oder so ähnlich
end;
So würds jetzt ich machen.
ListBox.Items ist meines wissens ein TStrings Object. Ob du da ein Array zuweisen kannst ist fraglich ...
Außerdem hat Ironmaster die Einträge der ListBox vermutlich schon anderswo her geladen.