cargar imagenes desde un fichero
 

hola a todos

tengo un trabajo de fichas donde cargo una serie de campos, entre ellos un TImage donde realizo:

procedure TFFicha.DBEdit3Change(Sender: TObject);
begin
try
image1.Enabled:=true;
image1.Picture.LoadFromFile('C:\Fotos\'+dbedit3.Text.+'.bmp');
except
On EFOpenError do
image1.Picture.Enabled:=false;
end;
end;

donde dbedit3 es el campo del DNI, de forma que las fotos se nombran por ejemplo '2389271.bmp'

el problema es que mientras la foto existe la carga y sale bien, pero si no hay una foto con el nombre del DNI mi intencion es que no se muestre foto y ya está, pero incluso poniendo el control try ...except me sigue dando error EFOpenError y me dice que no puede abrir la foto, como puede arreglarse ésto?

no sé si me explico bien, lo que quiero es que cuando haya foto en el directorio, se cargue, y cuando no haya, no se cargue pero que se puedan ver los demas campos (DNI, etc...) sin que de error

Muchas gracias de antemano. Un saludo

Yo guardaria una imagen por ejemplo con un aspa en rojo.

Nohayfoto.bmp

Y en vez de intentar abrir la foto antes utilizaría la función FileExist(FileName);

Si hay foto la cargo, independientemente de seguir utilizando Try....Except, porque así nos seguiremos protegiendo de algún fallo inesperado, sino hay foto cargo el aspa. (O un perro Bulldog), si te parece mas gracioso.

Un Saludo.

gracias Marcos, ahora me funciona a la perfección

saludos