проблемы с ListBox1 не работает ответ

[KWN, lnc]

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
  for i := 0 to ListBox1.Items.Count - 1 do
  if Pos('123', ListBox1.Items.Strings[i]) > 0 then begin
 Form1.Caption := 'ок'
end
else
begin
Form1.Caption := 'но'
end;
end;

в чем проблема? почему нет ответа о том что его нет?

[Hacker19_90]

почему нет ответа о том что его нет?

Возможно обработка строк, настолько быстра что вы просто его не видите!
Добавляйте ответы в Memo!!!
Допустим так:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to ListBox1.Items.Count - 1 do
if Pos('123', ListBox1.Items.Strings[i]) > 0 then begin
Memo1.Add('yes');
end
else
begin
Memo1.Add('no');
end;
end;

[kangreon]

Зачем все так усложнять? У ListBox`а есть функция поиска, которая в случае успешного поиска возвращает индекс строки с текстом, а в противном случае -1.

ListBox1.Items.IndexOf('123')

[Hacker19_90]

Да причём тут усложнять?
Просто допустим если в последней строке у ТС 123, он на капшине ничего не увидит кроме yes!

[kangreon]

Это понятно. Но все равно зачем это делать в цикле?

  i := ListBox1.Items.IndexOf('text');
  if i = -1 then
    Caption := 'Нету'
  else
    Caption := 'Есть';

Или необходимо найти строку которая содержит в себе только некоторые символы?

[Hacker19_90]

Ему вообще-то каждую строку проверить надо! А не просто узнать есть или нет!

[kangreon]

Понятно.
Просто из вопроса ничего не понятно. И первое что пришло в голову... То, что этим кодом проверяется существует ли запись в списке.

[KWN, lnc]

Не помогло! есть еще варианты?

[Sibedir]

почему нет ответа о том что его нет?

Ну, наверно потому что в последней строке у вас есть '123'.

[KWN, lnc]

так как мне сделать чтобы он искал и определял есть или нету?