Ver Mensaje Individual
  #3  
Antiguo 23-07-2004
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Reputación: 30
jachguate Va por buen camino
Cool

Yo, a la rutina dada por delphi.com.ar, le añadiría una clausula ON, para cargar la imágen por defecto en caso que la imágen buscada no exista en disco, pero dejar transcurrir cualquier otra excepción que pudiera producirse (falta de recursos, por ejemplo).

Es por mi (buena) costumbre de ser tan específico como se pueda cuando capturo excepciones, y no comerme errores que no se como controlar y que debiera delegar a partes mas externas (o al propio delphi).

Código Delphi [-]
  try
    { Intenta cargar la imagen }
    Image1.Picture.LoadFromFile('c:\error.jpg');
  except
    { Si se produce un error al cargar la imagen }
    on EFileNotFound do
      Image1.Picture.LoadFromFile('c:\windows\Bosque.bmp');
  end;

Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita