FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
acceder a un fichero
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|