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
