Código Delphi [-] var f : TextFile; begin AssignFile(f, 'nombre de archivo'); Rewrite(f); write(f, edit1.text); CloseFile(f); end;
var f : TextFile; begin AssignFile(f, 'nombre de archivo'); Rewrite(f); write(f, edit1.text); CloseFile(f); end;