Código Delphi [-] var Archivo: TextFile; begin AssignFile(Archivo, 'archivo.txt'); Rewrite(Archivo); WriteLn(Archivo, Edit1.Text); CloseFile(Archivo); end;
var Archivo: TextFile; begin AssignFile(Archivo, 'archivo.txt'); Rewrite(Archivo); WriteLn(Archivo, Edit1.Text); CloseFile(Archivo); end;