Hallo,
wenn die Datei existiert, kannst Du mit Append(f) Daten anhängen, existiert sie noch nicht, dann mit ReWrite(f) eine neue Datei erstellen (eine bestehende Datei wird ohne Nachfrage überschrieben). Zum Lesen wird Reset(f) benutzt. Jeder dieser Befehle schließt die gleichzeitige Benutzung der anderen aus.
Versuchs mal so in der Art:
Delphi-Quellcode:
AssignFile(f,opendialog1.FileName);
If Not FileExists(opendialog1.FileName)
Then Begin
ReWrite(f);
End Else Begin
Append(f);
End;
Try
WriteLn(f,'
irgendeintext');
Except
On e :
Exception Do Begin
ShowMessage(e.
Message);
End;
End;
CloseFile(f);