ForceFile

[himitsu]

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.