Text in Datei speichern

[omata]

Delphi-Quellcode:

AssignFile(f, 'C:\test.txt');
try 
  if FileExists('C:\test.txt') then
    Append(f)
  else
    Rewrite(f);
  Writeln(f, report);
finally
  CloseFile(f);
end;