[Oleg]

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

>Oleg
А кокого размера у тебя файлы?

~2-200 Kb очень редко больше

[ART]

У тебя тоже что ли моя функция очень долго работает? Да одной строкой конечно быстрее будет, я не притендую на самый быстрый алгоритм. Это лишь один из вариантов.

[Rokuell]

>Oleg
Я писал уже выше #9, только изменить его надо, чтобы сразу проверять 60 строк, а не открывать столько раз файл:

Код:

procedure FindStringInFile(const FileName: string);
var
  fs: TFileStream;
  S: string;
  j:integer;
begin
  fs := TFileStream.Create(FileName, fmOpenread or fmShareDenyNone);
  try
    SetLength(S, fs.Size);
    fs.ReadBuffer(S[1], fs.Size);
  finally
    fs.Free;
  end;
  for j:=0 to 60 do
   begin
    cmd:='test_'+IntToStr(j);
    if Pos(cmd,S) > 0 then nav.Items.Add(cmd);
   end;
end;