FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
Visor LCD
Hola foro,
En mi aplicación utilizo lo siguiente para visualizar informacion en un visor LCD, pero me da error en la funcion "Assign", alguien sabe por qué? procedure imprimehola;var F: Textfile;begin assign(F,'com1'); rewrite(F); writeln(F,'HOLA VISOR') closefile(F);end; Gracias por adelantado. |
#2
|
|||
|
|||
Aqui está mas estructurado...
procedure imprimehola
var F: Textfile; begin assign(F,'com1'); rewrite(F); writeln(F,'HOLA VISOR'); closefile(F); end; |
#3
|
|||
|
|||
El Assign para ficheros de Pascal, en Delphi es AssignFile.
__________________
Guía de Estilo |
#4
|
|||
|
|||
Con AssignFile funcionó.
Muchas gracias ya está en marcha, aunque os pongo el código final para escribir en el visor LCD:
procedure TfMain.MostraInfoVisor(); var F: TextFile; begin AssignFile(F,LCD); Rewrite(F); Write(F,'BIENVENIDOS '); WriteLn(F,'A MI APLICACION'); CloseFile(F); end; |
|
|
|