File patchen

[mr_emre_d]

TmpCode: (keine Suche)

Delphi-Quellcode:

var
  F: File of Byte;
begin
  AssignFile( F, 'C:\Beispielsdatei.beispielsendung' );
  //-- wenn datei existiert, dann resetten:
  Reset( F );
  //-- wenn es sie nicht gibt, kann nichts resettet werden -> erstellen (überschreiben):
  Rewrite( F );
  //-- Zu einem bestimmten Byte gehen (Offset):
  Seek( F, Offset );
  //-- Folgende zwei Instruktionen erhöhen den Offset um jeweils >Anzahl der Bytes, die eingelesen werden sollen<:
  //-- Lesen:
  BlockRead( F, Variable in die eingelesen werden soll, Anzahl der Bytes die eingelesen werden sollen );
  //-- Schreiben:
  BlockWrite( F, .. siehe BlockRead
  //-- Wichtig -> schließen nie vergessen, da Änderungen sonst nicht angenommen werden:
  CloseFile( F );
end;