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:

[MuTzE]

Ich versteh nicht wo dein Problem liegt.

Delphi-Quellcode:

var
  StringList: TStringList;


procedure TForm1.FormCreate(Sender: TObject);
begin
  StringList := TStringList.Create;
  if not FileExists('Text.txt') then
   StringList.SaveToFile('Text.txt');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  StringList.Destroy;
end;

Der speichert doch! Du solltest vllt mal genau sagen wie das funktionieren soll! Das hilft anderen auch weiter.

Da brauchste nicht mit den Augen zu rollen!

[danku]

ich hab das problem bereits gelöst. (siehe prog)
mit den tstrings habe ich es schon probiert.
tfilestream gefiel mir besser.

[inherited]

Öhm, bist du sicher das das prog funzt? Laut dem hab ich ein BMI von 12.63

[danku]

hat du auch das geburtsjahr, größe in cm! und gewicht beachtet?

[MuTzE]

^^ Wahrscheinlich ist er 2 m groß und wiegt 60 kilo oder so, hehe


Also bei mir geht er!

[inherited]

1.75 m und 54 kg.
Hab grad gelesen das der Test erst ab 19. Lebensjahr gilt^^

[MuTzE]

Naja sag ich doch, das is aber trotzdem nich viel!

Ich bin 1,85 m und wiege ca 80 Kilo. Das ist Normalgewicht, aber nich deins.

[richie]

Also bei mir geht er auch. Aber inherited :shock: , was bist du denn für ein Spargeltarzan?

[MuTzE]

^^ sag ich doch :mrgreen:

[danku]

könnten wir ja gleiche eine umfrage zwecks dem bmi machen... :stupid: