Поиск Строки В Файле Delphi

Поиск строки в файле - одна из важных операций при работе с файлами в Delphi. Доступны несколько способов поиска строки в Delphi, включая: использование функций Pos и AnsiPos; использование класса TStringList; использование класса TFileStream; использование класса TStreamReader.

Функция Pos ищет первое вхождение заданной подстроки в другой строке и возвращает позицию первого символа найденного вхождения. Пример кода на Delphi:

var  Position: Integer;  MyString, SubStr: string;begin  MyString := 'This is a sample string';  SubStr := 'sample';  Position := Pos(SubStr, MyString);  if Position > 0 then    ShowMessage('Substring found at position ' + IntToStr(Position))  else    ShowMessage('Substring not found');end;

Класс TStringList позволяет загружать файлы в список строк для более удобной работы с ними, включая поиск строк. Пример кода на Delphi:

var  MyStringList: TStringList;begin  MyStringList := TStringList.Create;  try    MyStringList.LoadFromFile('C:\MyFile.txt');    if MyStringList.IndexOf('MySearchString') >= 0 then      ShowMessage('String found')    else      ShowMessage('String not found')  finally    MyStringList.Free;  end;

Класс TFileStream позволяет работать с файлом на низком уровне, что может быть полезно в случае работы с бинарными файлами. Пример кода на Delphi:

var  MyFileStream: TFileStream;  MyBuffer: array[0..1023] of Byte;begin  MyFileStream := TFileStream.Create('C:\MyFile.txt', fmOpenRead);  try    while MyFileStream.Read(MyBuffer, SizeOf(MyBuffer)) > 0 do      if Pos('MySearchString', PChar(@MyBuffer)) > 0 then      begin        ShowMessage('String found');        Break;      end;  finally    MyFileStream.Free;  end;

Класс TStreamReader позволяет читать текстовый файл построчно. Пример кода на Delphi:

var  MyStreamReader: TStreamReader;  MyLine: string;begin  MyStreamReader := TStreamReader.Create('C:\MyFile.txt');  try    while not MyStreamReader.EndOfStream do    begin      MyLine := MyStreamReader.ReadLine;      if Pos('MySearchString', MyLine) > 0 then      begin        ShowMessage('String found');        Break;      end;    end;  finally    MyStreamReader.Free;  end;