Textdatei erstellen

[5etH]

für was ist f ?

wie kann ich für db.txt einen ordernpfad angegen

CreateTextFile wird als fehler angezeigt ... sieht momentan so aus

Delphi-Quellcode:

procedure TForm6.FormCreate(Sender: TObject);
var sDir : string;
    f : TEXTfile;
begin

sDir := 'c:\DB';;
//if sDir path does not exist, create it!
if NOT DirectoryExists(sDir) then
  ForceDirectories(sDir);

  assignfile(f, DB.txt');
  rewrite(f);
  closefile(f);

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

funzt trozdem nicht