![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() hola!
estoy intentando acceder a un fichero para escritura, lo que hago es: //Abro el fichero para escritura FileHandle := FileOpen(fichero, fmOpenWrite); //si existe if (FileHandle > 0 ) then //inserto texto en el ficchero begin FileWrite(FileHandle, 'si funciona', SizeOf(15)); FileWrite(FileHandle, 'MIN=', SizeOf(15)); //Cerramos el fichero. FileClose(FileHandle); end else MessageDlg('ha ocurrido un error con el fichero.',mtError,[mbOk],0); El problema es que nunca llega a abrirse correctamente el fichero, ya que nunca me inserta nada pese a que la ruta del fichero que le indico es la correcta(la obtengo asi en una función: ... ruta:=ExtractFilePath(Application.ExeName); Result:=(ruta + 'Datos\11.lg');...) //Abro el fichero para escritura //inserto texto en el ficchero |
|
|
![]() |
|