ForceFile

[Monday]

Es gibt ja ein ForceDirectory, aber kein ForceFile.

Deshalb habe ich eines gemacht. Ist zwar nicht spektakulär, aber für faule Menschen wie mich




ForceFile erstellt eine Textdatei, wenn sie noch nicht vorhanden ist.

Optional: Löscht und erstellt eine Textdatei, wenn sie schon vorhanden ist (z.B., wenn man den Inhalt einer vorhandenen Textdatei löschen möchte und mit einer leeren Textdatei beginnen möchte).

Delphi-Quellcode:

procedure ForceFile(dateiname: string; bereits_vorhandene_datei_trotzdem_neu_erstellen: boolean = False);
var
  f: text;
begin
{
 bereits_vorhandene_datei_trotzdem_neu_erstellen -> True.
 z.B. wenn man eine leere Datei haben will, und ein bereits vorhandener Dateiinhalt nicht mehr weiterverwendet werden soll
}
  if not FileExists(dateiname) then begin
    assignfile(f, dateiname);
    rewrite(f); //writeln(f, '');
    closefile(f);
  end;
  if bereits_vorhandene_datei_trotzdem_neu_erstellen then begin
    DeleteFile(dateiname);
    assignfile(f, dateiname);
    rewrite(f);  //writeln(f, '');
    closefile(f);
  end;
end;

Beispiel:
ForceFile('bericht.txt');


Oder auch eine vorhandene Datei neuerstellen:
ForceFile('bericht.txt',True);

Man spart sich im eigentlichen Code ein paar Zeilen Code.