Ka vllt brauchts ja einer.Code:var
Form1: TForm1;
f: textFile;
Text:string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Text:=edit1.Text;
begin
AssignFile(f, 'C:\Test.txt');
Rewrite(f);
writeln(f,'*******************');
writeln(f,'Coded by inmate');
writeln(f,'Coded by inmate');
writeln(f,Text + ' Das war der Text');
closefile(f);
end;
end;
end.
Es wird ne .txt unter C:\ erstellt und geschrieben.
mfG