Typisierte Dateien erweitern

[d3g]

Die Idee ist jetzt zwar unelegant, aber schreibe doch das, was du anhängen willst per Rewrite() in eine neue Datei und dann liest du Original und Anhängsel in einen TFileStream ein und kopierst beide zusammen.

Delphi-Quellcode:

var
  Body, Appendix: TFileStream;

{...}

Body := TFileStream.Create('Original', fmReadWrite);
try
  Appendix := TFileStream.Create('Anhängsel', fmRead);
  Body.CopyFrom(Appendix, Appendix.Size);
finally
  Body.Free;
  Appendix.Free;
end;

So in der Art - hab ich jetzt nicht getestet.

MfG,
d3g