FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
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 |
#2
|
||||
|
||||
¿Te muestra el mensaje de error?
PD: En lugar de mostrar ese mensaje estático, te recomiendo hacer un RaiseLastWin32Error (o RaiseLastOSError en D6 o mayor), así te mostrará el error que arroja el sistema operativo, que será mucho mas descriptivo. Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
muchas gracias!!
al final era que el fichero tenia dos extensiones y por eso daba error, ya que no lo encontraba :-P |
|
|
|