// Replaces a string in a file with new string. // Ersetzt eine Zeichenkette in einer Datei mit einer anderen Zeichenkette. procedure TForm1.Button1Click(Sender: TObject);
var
f: file;
l: Longint;
FileName, oldstring, newstring, s: string;
begin
oldstring := "old string";
newstring := "new string";
FileName := "c:\YourFileName.xyz";
s := oldstring;
AssignFile(f, FileName);
Reset(f, 1);
for l := 0 to FileSize(f) - Length(oldstring) - 1 dobegin
Application.ProcessMessages;
Seek(f, l);
BlockRead(f, oldstring[1], Length(oldstring));
if oldstring = s thenbegin
Seek(f, l);
BlockWrite(f, newstring[1], Length(newstring));
ShowMessage("String successfully replaced!");
end;
Application.ProcessMessages;
end;
CloseFile(f);
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Править двоичные файлы", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!