Textdatei erstellen

[wido]

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure CreateTextFile(FileName : string);
var
  f : TEXT;
begin
  assignfile(f, FileName);
  rewrite(f);
  writeln(f, 'Hallo Delphi Praxis!');
  closefile(f);
end;

begin
  if not FileExists('db.txt')
    then CreateTextFile('db.txt')
    else
      begin
        // Datei existiert
      end;
end.

Zeigt sowohl wie Du eine Textdatei anlegen kannst als auch wie Du testest ob die Datei existiert . Wenn Fragen sind, frag einfach.