Cita:
Empezado por noob
¿Hay algo mal?
|
Yo al iguial que Román creo que el error anda en torno a la captura de excepción (su tipo).
Tú has creado un tipo nuevo, pero eso no significa que Delphi vaya a generar los errores de entrada salida con tu tipo.
Captura el error de IO y en ese punto si te interesa levantas la tuya.
También capturaría otros tipos de errores, al menos en este caso te servirá para saber qué está pasando.
Algo así:
Código Delphi
[-]
try
...
except
on: E: EInOutError do begin
ShowMessage(Format('Se ha producido un eror de entrada/salida. Mensaje de sistema: %s',[E.Message]));
raise eFicheroNoExiste.Create();
end
else begin
ShowMessage(Format('Error desconocido. Clase(%s), Mensaje: %s',[E.ClassName, E.Message]));
end;
end;
Un saludo