Delphi-Quellcode:
procedure ForceFile(dateiname: string; bereits_vorhandene_datei_trotzdem_neu_erstellen: Boolean = False);
var
f: Text;
begin
if not FileExists(dateiname) or bereits_vorhandene_datei_trotzdem_neu_erstellen then begin
//DeleteFile(dateiname); // nicht nötig, weil der Inhalt wird ja eh gelöscht/überschrieben
AssignFile(f, dateiname);
Rewrite(f); //WriteLn(f, '');
CloseFile(f);
end;
end;
Das behebt auch das "Problemchem" mit dem doppelten Erstellen, wenn NotExist
und bereits_vorhandene...
Alernativ wäre ein ELSE zwischen den IF auch eine Lösung dafür.