[Ksully]

Я добавляю определенные слова из одного ListBox1 в другой ListBox2, и из ListBox2 нужно вывести картинки из файла в Image, соответствуюшие кажд слову. Например есть в ListBox2 слова: кошка, собака. И при нажатии Button появляются картинки кошка и собака. не могу этого сделать, может кто-нибудь помочь?

[lmikle]

Где должны выводиться картинки.
А вообще, итемы в листбокс надо добавлять через AddObject, где в качестве объекта можно указать какой-нить уникальный ID типа Integer. по этому ID и выводишь картинки.

[Karsh]

Вот так при клике мышкой в листбоксе можно узнать текст выделенной строки:

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
var
  x: Integer;
  s: string;
begin
  x:= ListBox1.ItemIndex;
  if x < 0 then exit;
  s:= ListBox1.Items[x];
  ShowMessage(s);
end;

вмечто "ShowMessage(s);" можно подставить код сравнения строки S и показа картинки.

[Ksully]

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

[Karsh]

вот так можно узнать какие строки выделены:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: string;
begin
  for i:= 0 to ListBox1.Items.Count - 1 do
  begin
    if ListBox1.Selected[i] then s:= s + 'Выделена строка ' + IntToStr(i+1) + #13#10;
  end;
  ShowMessage(s);
end;

[Ksully]

Всем спасибо за ответы))))
Я все попробовала, да все работает, но мне нужно немного другое... Мне нужно, что бы не выделять строку и проверять что там написано, а чтобы он без выделения (или выделяя все слова) видел сразу все строки и нажимая на button рисовал картинки, соответствующие тем словам, которые есть в списке....
Вот я не могу этого добиться.(это мне нужно для того, что бы если убираешь слово из списка, то и убиралась и картинка....)
Подскажите????

[Karsh]

Список строк в ListBox имеет тип TStrings.
Вот пример работы с ним:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: string;
begin
  for i:= 0 to ListBox1.Items.Count - 1 do
  begin
    s:= ListBox1.Items[i];
    ShowMessage('Строка: ' + s);
  end;
end;