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 |
¿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! |
muchas gracias!!
al final era que el fichero tenia dos extensiones y por eso daba error, ya que no lo encontraba :-P |
La franja horaria es GMT +2. Ahora son las 22:53:12. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi