Und wie sollte ich das am besten machen?
Folgendermaßen mach ich das jetzt so in kurz Form:
Delphi-Quellcode:
For i:=1 to Anzahl do // Alle Wert von 1 bis Anzahl
Begin
{$I-}
reset(F,1);
{$I+}
Seek(F,A[i].A); // Offset
Ch:=Char(A[i].B); // Zeichen werden geholt
Blockwrite(F,Ch,1); // Schreibt eine Anzahl von Records aus einer Puffervariablen in eine Datei
End;
Closefile(F);