Подскажите пример поиска строки в текстовом файле.

← →
Gemini (2004-06-04 00:38) [0]

Необходимо производить поиск строки в текстовом файле. Достаточно даже просто знать - имееться ли такая строка или нет. Если можно примерчик пожалуйста... :)

← →
NeVIP. (2004-06-04 00:48) [1]

Поробуй плясать от этого :

...

var ThisFile : TextFile;
S : string;
Yes : integer;
begin
// Ассоциирую файловую переменную с файлом
AssignFile(ThisFile,FilePatch);
{$I-}
// Перехожу в начало файла
Reset(ThisFile);
{$I+}
// Проверка на ошибки при доступе к файлу
if IOResult<>0 then
begin
MessageBox(Application.Handle,PChar("Ошибка при чтении файла "+FilePatch),"Ошибка", MB_ICONWARNING);
Exit;
end;
// Пока не будет достигнут конец файла
while not Eof(ThisFile) do
begin
// читай строку
Readln(ThisFile, S);
S="строка поиска" then ShowMessage("Строка найдена");
end;
// Закрой файл
CloseFile(ThisFile);

...

С уважением.

← →
NeVIP. (2004-06-04 00:55) [2]

Ссори, потoропился, читать :
if S="строка поиска" then ShowMessage("Строка найдена");
и Yes - убрать... ^_^

С уважением.

← →
Gemini (2004-06-04 01:03) [3]

Спасибо, а что такое FilePatch?

← →
Gemini (2004-06-04 01:14) [4]

Разобрался , спасибо огромное!!!

Подскажите пример поиска строки в текстовом файле. Найти похожие ветки