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

Здрасть всем! 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;
Не показывает сообщение. Хелп ми плиз...
5 ответов

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


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


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]) <font color="Red"><b><></b> 0</font> then ShowMessage('Строку нашел');
 end;

 List.Free;
end;


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;


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! Выручил! Спасибо бальшоэ!