Textdatei erstellen

[wido]

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); 

  if not FileExists('c:\db\DB.txt') 
    then  
      begin
        //Datei existiert nicht --> erstellen
        assignfile(f, 'c:\db\DB.txt'); 
        rewrite(f); 
        closefile(f); 
      end
    else 
      begin 
        // Datei existiert 
      end; 
end;

Ganz ehrlich und das soll jetzt nicht böse klingen, aber offensichtlich beherrscht Du nicht mal die Delphi Grundlagen. Magst Du Dir nicht erstmal die Grundlagen mit Hilfe eines Buchs oder nem Online Tutorial aneignen bevor Du wirklich anfängst zu programmieren? Weil ich glaub nicht, daß Dir das was bringt, wenn ich Dir da den Code tippe so das er das macht, was Du wirklich willst .