![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
#1
|
|||
|
|||
![]() 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
|
|||
|
|||
![]() 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
|
|||
|
|||
![]() 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; |
![]() |
|
|
![]() |
|