.txt erstellen und schreiben

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.

---

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


mfG

Denke das Hilft könnte immer hilfreich sind.

Closed - bei Fragen an mich wenden.