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

[ArtGrek]

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

вам уже сказали, зделаите 2 списка где есть и где нету и заносите в них номера строк после каждои проверки

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

[KWN, lnc]

Не помогло!

[ArtGrek]

скинте, как вы зделали

[_SERGEYX_]

var
  i: integer;
begin
  for i := 0 to ListBox1.Items.Count - 1 do
    if Pos('123', ListBox1.Items.Strings[i]) > 0 then
    begin
      ShowMessage('есть');
      Break;
    end;
end;

[KWN, lnc]

я сделал так.

var
  i: integer;
begin
  for i := 0 to ListBox1.Items.Count - 1 do
    if Pos('123', ListBox1.Items.Strings[i]) > 0 then
    begin
      ShowMessage('есть');
    end;

    if not Pos('123', ListBox1.Items.Strings[i]) > 0 then
    begin
      ShowMessage('нету');
    end;
end;

не помогло (

[Hacker19_90]

НУ и чё???
Вот посмотрите сами на ваш код!

Код:

var
  i: integer;
begin
  for i := 0 to ListBox1.Items.Count - 1 do
    if Pos('123', ListBox1.Items.Strings[i]) > 0 then
    begin
      ShowMessage('есть');
    end;

    if not Pos('123', ListBox1.Items.Strings[i]) > 0 then
    begin
      ShowMessage('нету');
    end;
end;

Ни чего не видете?????
А я вижу то, что проверка на отсутствие к циклу не относится!!! Begin END В ЦИКЛ!
как то так

Код:

var
  i: integer;
begin
  for i := 0 to ListBox1.Items.Count - 1 do
  BEGIN
    if Pos('123', ListBox1.Items.Strings[i]) > 0 then
    begin
      ShowMessage('есть');
    end;

    if not Pos('123', ListBox1.Items.Strings[i]) > 0 then
    begin
      ShowMessage('нету');
    end;
   END;
end;

[KWN, lnc]

Hacker19_90, а ты не пробовал проверить свой код?

он не работает (((

компонент Delphi издевается

[ArtGrek]

все работает, скинте лучше проект, посмотрим что вы делаете

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  a: boolean;
begin
  a := false;
  for i := 0 to ListBox1.Items.Count - 1 do
    if Pos('123', ListBox1.Items.Strings[i]) > 0 then a := true;
  if a then ShowMessage('est')
    else ShowMessage('net');
end;

[Sibedir]

KWN, lnc, хорошь издеваться над форумчанами. Код, приведеный вами еще в посте #1 работает. Что за дурацкие вопросы?

[ArtGrek]

post #18 100%