viel Mist in einer Textdatei

[DeddyH]

Und das funktioniert? In Delphi heißt es doch AssignFile, Assign stammt noch aus TP-Zeiten und hat unter Delphi eine andere Bedeutung. Und wieso Reset?

Delphi-Quellcode:

sFile := ExtractFilePath(ParamStr(0))+ 'Temp\' + Speicherverzeichnis.sTempDatei;
{$I-}
AssignFile(fTempFile, sFile);
if FileExists(sFile) then
  Append(fTempFile)
else 
  Rewrite(fTempFile);
{$I+}
if IOResult = 0 then
  writeln(fTempFile,Text)
else
  MessageBox(0,'Fehler beim Öffnen der Datei',nil,MB_OK or MB_ICONERROR);
closeFile(fTempfile);

So in etwa würde ich das machen (aus dem Kopf getippt, die Fehlermeldung ggf. etwas detaillierter, dazu muss man sich IOResult genauer ansehen).