Die Feinheiten bei Listboxen

[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.