Главная страницаОбратная связьКарта сайта

Править двоичные файлы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

// 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 do
   begin
     Application.ProcessMessages;
     Seek(f, l);
     BlockRead(f, oldstring[1], Length(oldstring));
     if oldstring = s then
     begin
       Seek(f, l);
       BlockWrite(f, newstring[1], Length(newstring));
       ShowMessage("String successfully replaced!");
     end;
     Application.ProcessMessages;
   end;
   CloseFile(f);
 end;

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Править двоичные файлы", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info