Ver Mensaje Individual
  #1  
Antiguo 26-12-2006
brookly_n brookly_n is offline
Registrado
 
Registrado: abr 2006
Posts: 7
Reputación: 0
brookly_n Va por buen camino
Maneja de errores (try except)

HOla a todos,

En una aplicacion lo que quiero es que si al intentar abrir un archivo de texto este no existe, se capture el error que se genera y mostrar uno personalizado. He intentado con el siguiente ejemplo:

Código Delphi [-]
  try
    AssignFile(fIN,nombreArchivo);
    reset(fIN);
    showmessage('Archivo abierto de manera correcta');
    closeFile(fIN);
  except
    showmessage('ERROR: Se produjo un error al intentar abir el archivo');
  end;

pero no funciona, pues cuando le pongo un archivo que no existe, me sigue saltando el error por defecto de File Not Found y no sale el showmessage.

Alguna idea de que puede estar pasando?

GRacias a todos!
Responder Con Cita