In Datei schreiben?

[smax]

Hallo,

wie kann ich etwas in eine Datei schreiben?

Ich habe ein Feld Namens Edit1 und der Inhalt von Edit1 soll in die Datei data.txt geschrieben werden!

Wie geht das?

Sorry aber über der Suche habe ich nix gefunden!

[Daniel B]

Hallo smax und willkommen im Forum,

naja, Du hättest vielleicht auch mal die Library besuchen sollen, wenn die Suche nichts bringt.
Siehe hier die untersten zwei Einträge.

Grüsse, Daniel

[smax]

Cool Thx aber ich hab noch 3 Fragen:

1. Muss für tf der Dateiname reinkommen? Wenn ja wie mach ich das?

tf:=data.txt ?

2. Wozu ist OpenDialog1.FileName? Muss ich da auch was ändern?

3. Ich will statt Hell World! den Eintrag aus einem Feld Namens Edit1 eintragen! Wie geht das?

WriteLn(tf, TForm3.Edit1); ?

[Daniel B]

Hallo,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  tf: TextFile; 
begin 
  if OpenDialog1.Execute then 
  begin 
    AssignFile(tf, OpenDialog1.FileName); 
    ReWrite(tf); 
    WriteLn(tf, Edit1.Text); 
    CloseFile(tf); 
  end; 
end;

Statt
AssignFile(tf, OpenDialog1.FileName);
geht auch
AssignFile(tf, 'C:\Daten.txt');
. Allerdings macht es dann so mehr Sinn:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  tf: TextFile; 
begin 
  AssignFile(tf, 'C:\Daten.txt'); 
  ReWrite(tf); 
  WriteLn(tf, Edit1.Text); 
  CloseFile(tf); 
end;

Oben bei den Komponenten gibt den Register Dialogs, dort gleich das erste aussuchen und und aufs Formular setzen.
Dann musst Du nicht immer den Dateinamen samt Pfad angeben, sondern bekommst dieses normale Fenster von Windows womit man Dateien zum Öffnen oder Speichern aussucht.

Damit dürften dann ale dre Fragen geklärt sein oder?

Grüsse, Daniel

[smax]

Ok Danke alles bestens es geht!

Er hat mir zwar einen Fehler in dieser Zeile angezeigt:

if OpenDialog1.Execute then Aber als ich die Weggelassen habe, hats gefuntzt!

[Daniel B]

Ich verschiebe das mal nach Object-Pascal.

Grüsse, Daniel

[Daniel B]

Zitat von smax:

Er hat mir zwar einen Fehler in dieser Zeile angezeigt:
if OpenDialog1.Execute then

Ich sagte ja:
"Oben bei den Komponenten gibt den Register Dialogs, dort gleich das erste aussuchen und und aufs Formular setzen."

Das lag einfach daran das die Komponente nciht auf dem Formular war. Es ist viel einfacher und schöner mit der Komponente zu arbeiten, C:\Daten.txt ist ja noch kurz, aber was machst Du erst wenn Du 10 Verzeichnisse angibst? Ausserdem wäre der Pfad nciht immer Fest, sondern kannst die Datei immer da speichern wo Du willst, dazu musst Du aber die Komponente aufs Formular setzen.

Grüsse, Daniel