Textdatei erstellen

[5etH]

Hallo Zusammen,

ich würde gerne eine .txt Datei erstellen, dann prüfen ob diese schon da ist, dass er sie nicht überschreibt, sodass der inhalt nicht weg ist.

kennt ihr da eine Procedur oder Function die dem entspricht ?

wenn ja bitte posten :)

danke schonmal

euer manu


EDIT:

also mit der procedur erstellt er mir nur einen ordenr der DB.txt heist... :(

Delphi-Quellcode:

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

[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.

[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

[mkinzler]

Zitat:

Für was ist f ?

File oder TextFile

Du hast ein begin zu viel

[wido]

Was willst Du genau machen? Der Code den Du da gepostet hast ist komplettes Kauderwelsch.

[5etH]

also im oberen teil erstelle ich einen ordner das funzt ja auch

nun will ich in diesem ordner eine textdatei erstellen die den namen db.txt hat

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

[5etH]

alles klar vielen dank das funktioniert programm endlich fertig :thumb:

hat nix damit zu tun nur ich sehen jetzt seid 9:30 nur delphi code wegen der arbeit und musste das fertig schreiben für nen kunden und joa ich brauch halt nur schlaf ...