Delphi Замена Строки В Файле

Delphi позволяет легко осуществлять чтение, запись и изменение содержимого файлов. Для замены строки в файле существует несколько подходов, включая использование классов TFileStream, TMemoryStream и TStringList.

Один из подходов включает чтение целого файла в память, замену нужной строки в памяти и запись измененного содержимого обратно в файл:

var  FileStream: TFileStream;  StreamSize: Int64;  StreamData: TBytes;  StringToReplace, ReplacementString: string;begin  StringToReplace := 'old string';  ReplacementString := 'new string';  FileStream := TFileStream.Create('filename.txt', fmOpenReadWrite);  try    StreamSize := FileStream.Size;    SetLength(StreamData, StreamSize);    FileStream.Read(StreamData[0], StreamSize);    FileStream.Seek(0, soBeginning);    TEncoding.UTF8.GetString(StreamData);    TEncoding.UTF8.GetBytes(ReplacementString);    StringReplace(TEncoding.UTF8.GetString(StreamData), StringToReplace, ReplacementString, [rfReplaceAll]);    TEncoding.UTF8.GetBytes(StreamData);    FileStream.Write(StreamData[0], StreamSize);  finally    FileStream.Free;  end;end;

В данном примере мы используем класс TFileStream для открытия файла в режиме чтения и записи. Затем мы читаем содержимое файла в массив байтов StreamData, заменяем строку при помощи функции StringReplace и записываем измененный массив обратно в файл.

Второй подход включает использование класса TStringList:

var  StringList: TStringList;begin  StringList := TStringList.Create;  try    StringList.LoadFromFile('filename.txt');    StringList.Text := StringReplace(StringList.Text, 'old string', 'new string', [rfReplaceAll]);    StringList.SaveToFile('filename.txt');  finally    StringList.Free;  end;end;

Здесь мы используем методы LoadFromFile и SaveToFile класса TStringList для чтения и записи содержимого файла и метод StringReplace для замены строки.