[Spritus]

Суть: есть лог работы программы в виде текстового файла, например:

09.21.2006 17:50:04 Authentication Ok
09.21.2006 17:50:04 Upload file(s)
09.21.2006 17:50:27 R0021004.L09 (86272 21.09.2006 17:46:52, 3698b/s)
09.21.2006 17:50:27 Upload completed

Задача: найти (проверить) в логе есть ли слово "R0021004" ну и там уже через чекбокс отметить например.

Вкратце: подскажите нупу, каким образом можно найти слово в строке текстового файла (НЕ СТРОКУ).

Спасибо большое

[Decoding]

Народ, хорошь филонить, включайте мозги…

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
  i: integer;
begin
   sl := TStringList.Create;
   sl.LoadFromFile( 'c:\test.log' );
   for i := 0 to sl.Count-1 do
      if Pos( 'R0021004', sl[i] ) > 0 then
      begin
         // Нашли, делаем что нужно
      end;
   sl.Free;
end;