Prüfen, ob eine gewisse Datei existiert

[Rapthor]

Ich will prüfen lassen, ob eine Datei schon existiert. Und wenn dies nicht der Fall sein sollte, will ich diese fehlende Datei neu erstellen lassen.
Wie geht das?

[sakura]

Yum Überprüfen kannst Du einfach die Funktion FileExists nutzen. Zum Erstellen mußt Du uns erst einmal sagen, was für ein Dateityp es werden soll, da gibt es viele Möglichkeiten.

...:cat:...

[mjenke]

Für eine einfache Textdatei beispielsweise so:

Delphi-Quellcode:

var
  Datei: TextFile;
  Dateiname: string;
begin
  Dateiname := 'c:\temp.txt';
  if not FileExists(Dateiname) then begin
    AssignFile(Datei,Dateiname);
    Rewrite(Datei);

    // Datei mit Inhalt füllen

    CloseFile(Datei);
  end;
end;

:)
Matthias

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]

[Rapthor]

Danke .. funzt