ListBox, Delphi

[grom333]

Наверное я вас сам запутал...
Забудьте про товары, я к примеру взял.
В листбоксе просто слова.
На нажатие каждой из строки , в лабел выводиться просто слово.

Ну, народ. Я уверен что здесь больше половины шарящих. Помогите а?

[ОДИНОЧЕСТВО В СЕТИ]

procedure TForm1.listbox1Click(Sender: TObject);
 begin
lаbеl1.Caption:=lst1.Items[lst1.itemindex];
end;

так что ль?

[grom333]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

procedure TForm1.lst1Click(Sender: TObject);
 begin
lbl1.Caption:=lst1.Items[lst1.itemindex];
end;

так что ль?

у меня дельфи вообже не воспринимает это (lbl1)

[ОДИНОЧЕСТВО В СЕТИ]

lbl1 на label1 никак самому поправить фантазии не хватает?
откуда ж я знаю как у тебя там label-ы с listbox-ами называются!

[grom333]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

lbl1 на label1 никак самому поправить фантазии не хватает?
откуда ж я знаю как у тебя там label-ы с listbox-ами называются!

Этот код не тот что я хотел. написал же позже. При нажатии на строку листбокса выдается определенная информация.
На другой стринг, другая инфа.

[ОДИНОЧЕСТВО В СЕТИ]

ты бы определился чего хочешь!

[grom333]

Вот ребята, примерно так:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if ListBox1.Items.Strings[0]='пиво' then
  begin
   label1.Caption:=('пить плохо');
  end;

end;
end.

Но у меня информации много будет, надо как-нибудь по другому сделать, а то код будет строк эдак 1000, 2000...

[mihali4]

Пост номер 10, только AddItem поменять на AddObject.

[grom333]

Сделал вот так:

procedure TForm1.ListBox1Click(Sender: TObject);
var
info:string;
begin
  Label1.Caption:= Info[ListBox1.ItemIndex];
end;

procedure TForm1.FormCreate(Sender: TObject);

begin
Info[0]:= 'инфа первая';
Info[1]:= 'инфа вторая';
Info[2]:= 'инфа третья';
end;

end.

Т.е. инфа которая должна выводиться находится в формкреате. Только ошибку идентификации выдает , никак не пойму че по чем.

[amico]

хм...а что ж ты пишешь ???

procedure TForm1.ListBox1Click(Sender: TObject);
var
info:string;
begin
  Label1.Caption:= Info[ListBox1.ItemIndex];
end;

у тебя Info мало того, что записано в var TForm1.ListBox1Clickа, так еще и просто string!!! это ведь строковый массив!!!

глобально объяви
var Info : array[1..3] of string;