Поиск строки DELPHI

[androdrev]

Здрасть всем! DELPHI!!!

Короче такая проблема: надо найти определенную строку в файле, затем вывести сообщение, что нашли ее.

var
  List: TStringList;
  i: integer;
begin
  try
    List:=TStringList.Create;
    List.LoadFromFile('1.txt');
  except
    
 MessageBox(Handle,'Облом...','Инф',MB_ICONERROR);
  end;
  for i:=0 to List.Count-1 do
    begin
      if Pos(List.Strings[i], 'STRING')=1 then showmessage('СТроку нашел');
    end;

Не показывает сообщение. Хелп ми плиз...

[ReportCube]

Попробуйте так:

if Pos('STRING',List.Strings[i])>0 then begin
showmessage('СТроку нашел');
Break;
end

[androdrev]

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

Попробуйте так:

Нейдет... Боюсь из за того, что программа - кака.

[Shouldercannon]

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
  i: integer;
begin
  List := TStringList.Create;
  try
    List.LoadFromFile('1.txt');
  except
    MessageBox(0, 'Уйди постылый, сгинь', 'Ошибка', MB_ICONError);
  end;

  for i := 0 to List.Count - 1 do
  begin
    if Pos('STRING', List.Strings[i]) <> 0 then ShowMessage('Строку нашел');
  end;

  List.Free;
end;

[northener]

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
  i: integer;
begin
  List := TStringList.Create;
  try
    try
      List.LoadFromFile('1.txt');
      for i := 0 to List.Count - 1 do begin
        if Pos('STRING', UpperCase(List.Strings[i])) <> 0 then ShowMessage('Строку нашел');
        Break;
      end;
    except
      MessageBox(0, 'Кто писал не знаю, а я дурак читаю', 'Ошибка', MB_ICONError);
    end;
  finally
    List.Free;
  end;
end;

[androdrev]

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

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
  i: integer;
begin
  List := TStringList.Create;
  try
    try
      List.LoadFromFile('1.txt');
      for i := 0 to List.Count - 1 do begin
        if Pos('STRING', UpperCase(List.Strings[i])) <> 0 then ShowMessage('Строку нашел');
        Break;
      end;
    except
      MessageBox(0, 'Кто писал не знаю, а я дурак читаю', 'Ошибка', MB_ICONError);
    end;
  finally
    List.Free;
  end;
end;

Thank you! Выручил! Спасибо бальшоэ!