Daten mit AssignFile ändern oder anfügen

[Ralf Stehle]

Ich möchte an einer ganz bestimmten Stelle einer Binärdatei Daten einfügen. Falls diese Daten schon vorhanden sind, sollen Sie überschrieben werden, falls die Daten nicht vorhanden sind, müssen Sie ans Ende der Datei angehängt werden

Mit AssignFile habe ich es immerhin schon geschafft, eine Datei zu kopieren und dabei die Daten zu ändern:

Delphi-Quellcode:

var Buffer: array[1..2048] of byte;
    NumRead, NumWritten, i : Integer;
    q,z: File;
    s: string;
    c: char;
begin
   AssignFile(q, SelectedRoot + SelectedFile,'.001')); Reset(q, 1);
   AssignFile(z, SelectedRoot + SelectedFile,'.002')); Rewrite(z, 1);

   BlockRead(q, Buffer, SizeOf(Buffer), NumRead);

   for i:=23430 to 180 do begin
     s := Copy(EditNachname.Text, i-23430, 1);
     if s='' then Buffer[i]:= 0 else Char(Buffer[i]):= s[1]
   end;

   BlockWrite(z, Buffer, NumRead, NumWritten);

  repeat
    BlockRead(q, Buffer, SizeOf(Buffer), NumRead);
    BlockWrite(z, Buffer, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);

  CloseFile(q);
  CloseFile(z);
end.

Falls die Dateiposition 23430 (und die Bytes danach) nicht vorhanden sind, soll der Inhalt von Edit1.Text genau an der Position 23430 drangehängt werden

Ich schaffe das leider nicht ohne eure Hilfe, da ich eigentlich nicht genau verstehe, was Numread und NumWritten in der Repeat-Schleife genau bewirken

Vielen Dank

Ralf