nonVCL: Text ans ende einer Datei anfügen?

[Chewie]

Du öffnest die Datei mit Append:

Delphi-Quellcode:

var
  fText: Textfile;
begin
  AssignFile(fText,'c:\test.txt');
  Append(fText);
  Write(fText,'Das ist am Ende der Datei');
  CloseFile(fText);
end;