Die Feinheiten bei Listboxen

[Ironmaster]

Hallo

Wie kann ich es machen, dass wenn ich auf ein Item in der Listbox klicke, das "Milch" heißt, in Label1.Caption "150" steht?

Vielen Dank

[Zacherl]

Hi,
du musst im OnClick Ereigniss der ListBox folgendes schreiben:

Delphi-Quellcode:

if ListBox1.ItemIndex = -1 then
  exit;  //Fals kein Item existiert einen Felher beim Anklicken vermeiden und stattdessen die Procedure verlassen
if ListBox1.Items[ListBox1.ItemIndex] = 'Milch' then  //Abfragen, ob das aktuell markierte Item den Wert "Milch" hat
  Label1.Caption := '150';  //Wenn ja, dann die Caption zuweisen

Florian

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

[Zacherl]

Zitat:

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.

[DGL-luke]

Zitat:

//oder so ähnlich

sag ich doch ;)

[Zacherl]

Zitat:

Zitat von DGL-luke

Zitat:

//oder so ähnlich

sag ich doch ;)

Ok, das gebe ich zu übersehen zu haben ... :wink: