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?

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.

......

Für eine einfache Textdatei beispielsweise so:

zusammenfalten · markieren

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]

Danke .. funzt