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