Textdatei anlegen

[s.h.a.r.k]

Guten Abend,

du kannst das aber auch so machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  dat : TextFile;
begin
  if not FileExists(AFilename) then
  begin
    assignFile(dat, AFilename);
    try
      rewrite(dat); // schreiben der nicht vorhandenen Datei
    finally
      CloseFile(dat);
    end;
  end;
end;

Das rewrite(...) kannst du dann auch nicht in ein except-Block packen um eventuell auftretende Fehler abzuhandeln!

mfg shark