Ver Mensaje Individual
  #6  
Antiguo 20-02-2009
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.289
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por noob Ver Mensaje
¿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
    // O muestras el mensaje
    ShowMessage(Format('Se ha producido un eror de entrada/salida. Mensaje de sistema: %s',[E.Message]));
    // 0 levantas la tuya
    raise eFicheroNoExiste.Create();
  end
  else begin
    ShowMessage(Format('Error desconocido. Clase(%s), Mensaje: %s',[E.ClassName, E.Message]));
  end;
end;

Un saludo
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita