ListBox, Delphi

[grom333]

Нужна прога пример такой, слева листбокс с перечнем слов, допустим товары, справа в зависимости от выбранного пункта в лабел отображается инфа, допустим цена.
Вот я не знаю кода взаимосвязи м-ду выделенной строчкой и лабелом.
А может посоветуете что-нибудь другое, а то списки могут быть большими.

[VilAm]

а цена где-то записана?

[grom333]

Ну вот я так думаю, (код как сказал не знаю) ListBox1.string1:=label1.caption('8 0000000$');
Но это я понял очень большой код будет и не оптимизированный . Вот спрашиваю, может еще чтото посоветуете. с базами данных не разобрался еще.

[VilAm]

то есть по выбору любого значения listbox должно выскочить 8 0000000$?

[grom333]

Сообщение от VilAm

то есть по выбору любого значения listbox должно выскочить 8 0000000$?

нет, например вот
листбокс лабел
1. лялял 80000000$
1. ывыв 55$
3. вапвап 1000$
Для каждой строки листбокса другое значение.
Я пока ухожУ, через пару часов буду, сможешь показать код. Хотябы, просто присвоения как в первом варианте я показал. Ну или то-нибудь чот будет работать.

[VilAm]

procedure TForm1.lst1Click(Sender: TObject);
var s:string;
     s1:string;
     i:Integer;
     begin
s1:='';
s:=lst1.Items[lst1.itemindex];
for i:=Pos(' ',s)+1 to Length(s) do
   s1:=s1+s[i];
lbl1.Caption:=s1;
end;

[grom333]

Сообщение от VilAm

procedure TForm1.lst1Click(Sender: TObject);
var s:string;
     s1:string;
     i:Integer;
     begin
s1:='';
s:=lst1.Items[lst1.itemindex];
for i:=Pos(' ',s)+1 to Length(s) do
   s1:=s1+s[i];
lbl1.Caption:=s1;
end;

Это для всех лабелов и стрингов?
Куда писать значения всех лабелов?

[VilAm]

вот проект разбирайся

[grom333]

Ты не совсем понял, значения не должны быть видны в стрингах.

[russian-stalker]

Ну думаю что-то типа этого нужно? :

type
ttovar=class
cost:string;
end;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
tovar:ttovar;
begin
randomize;
tovar:=ttovar.Create;
tovar.cost:=inttostr(random(100000000))+'$';
listbox1.AddItem(chr(random(255)),tovar);
tovar.Destroy;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
tovar:ttovar;
o:tobject;
begin
 if listbox1.ItemIndex<>-1 then
 begin
  tovar:=ttovar.Create;
  tovar:=listbox1.items.objects[listbox1.ItemIndex] as ttovar;
  showmessage('Наименование: '+listbox1.Items.Strings[listbox1.ItemIndex]+#10+#13+'Цена: '+tovar.cost);
  tovar.Destroy
 end;
end;