.txt erstellen und schreiben

[inmate]

       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.

Ka vllt brauchts ja einer.
Es wird ne .txt unter C:\ erstellt und geschrieben.


mfG