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).