Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); var F1:TextFile; begin AssignFile(F1, 'C:\Temp\Prueba.Txt'); Rewrite(f1); Writeln(f1,Edit1.Text); CloseFile(f1); end;
procedure TForm1.Button1Click(Sender: TObject); var F1:TextFile; begin AssignFile(F1, 'C:\Temp\Prueba.Txt'); Rewrite(f1); Writeln(f1,Edit1.Text); CloseFile(f1); end;