Textdatei anlegen

[danku]

Mein Proggie prüft nach dem Starten ob eine Textdatei vorhanden ist oder nicht.
Sobald nämlich das aktive Edit-Feld verlassen wird,
wird automatisch der Wert in Txt gespeichert. Das geht ja nicht wenn keine angelegt wurde.

Delphi-Quellcode:

if not FileExists(s) then
  begin
   Write('BMI.TXT');  :roll: 
    end;

wie kann man erreichen, daß eine textdatei angelegt wird?

[SirThornberry]

schau dir am besten mal TFileStream an. Das ist eine wunderbares Object zum lesen und schreiben (optional mit anlegen) von Files.

[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

[Hawkeye219]

Der Rewrite-Befehl muß vor dem TRY stehen, sonst gibt es zwei Fehlermeldungen, falls das Öffnen der Datei fehlschlägt. Die Erklärung (und eine mögliche Alternative zu TRY...FINALLY) gibt es in diesem Thread. Damals ging es zwar um den Reset-Befehl, die Erklärung paßt aber auch hier.

Gruß Hawkeye

[danku]

danke. das speichern mit tstrings, memo.savetofile etc. habe ich auch probiert.
aber wenn die datei nicht vorhanden ist, kann ja auch nix gespeichert werden.

Hier ist das Proggie: Personal BMI Checker

[Andidreas]

hmm vielleicht hilft dir das weiter (ist aber nicht getestet!!!)

Delphi-Quellcode:

procedure TMain_Form.prFile();

var
blFile  : Boolean;
strFile : TStreamFile;
txtFile : TextFile;

begin


  blFile := FileExists('C:\Temp\Text.txt');
  
  If blFileExists = False Then
  Begin
    Try
      strFile := TFileStream.Create('Pfad', fmCreate);
    Finally
      strFile.Free;
    End;
    
    {$I-}
    AssignFile(txtFile, 'C:\Temp\Text.txt');
    Reset(txtFile);
    Writeln(txtFile, 'Eingabedaten');
    CloseFile(txtFile)
    {$I+}
    
  End;
  Else
  Begin
    {$I-}
    AssignFile(txtFile, 'C:\Temp\Text.txt');
    Append(txtFile);
    Writeln(txtFile, 'Eingabedaten');
    CloseFile(txtFile);
    {$I+}
  End;

end;

[SirThornberry]

für was musst du bei dem Programm eine Datei anlegen? Im übrigen kann man bei deinem programm nur einmal auf aktuallisieren klicken. Zudem wird mir nirgends angezeigt das eine Datei erstellt wurde. Wenn ich das Programm gelöscht habe bleibt somit eine Datei zurück von der ich nix weiß.

[danku]

in der datei werden die namen, kg etc. gespeichert.
probier es doch aus.

[inherited]

Kleines beispiel:

Delphi-Quellcode:

procedure wuppdi;
begin
  with TStringList.Create do
  begin
    Add('lol');
    SaveToFile('.\test.txt');
    Free;
  end;
end;

[danku]

Zitat:

Zitat von danku

danke. das speichern mit tstrings, memo.savetofile etc. habe ich auch probiert.
aber wenn die datei nicht vorhanden ist, kann ja auch nix gespeichert werden.

Hier ist das Proggie: Personal BMI Checker

:roll: