Fórum Tratar código.. (Se imagem existe, mostra.. se não existe..) #347002

04/10/2007

0

Olá! tenho em minha aplicação o seguinte código:


LocImg := ExtractFilePath(Application.ExeName)+´produtos\´;
if (FileExists(LocImg + RetornaNomeFoto(DADOS.CDSPRODUTO.FieldByName(´BARRA´).AsString) + ´.jpg´)) then
RetornaNomeFoto(DADOS.CDSPRODUTO.FieldByName(´BARRA´).AsString);
Image2.Picture.LoadFromFile(LocImg + RetornaNomeFoto(DADOS.CDSPRODUTO.FieldByName(´BARRA´).AsString) + ´.jpg´)


nesta, quando faço uma pesquisa por um produto com imagem existente na pasta, a imagem mostra... se eu coloco um produto existente, sem imagem cadastrada, daí da pau no sistema, mostrando que a imagem do produto não existe...

Como que eu poderia tratar este código? Ou seja: Pesquiso por um código de barras, aparece a imagem, o produto e o preço. Se não tiver imagem, aparece o produto, o preço apenas...

Desde já, agradeço.
Obrigado!


Lucas_spohr

Lucas_spohr

Responder

Posts

04/10/2007

Jhosef

usa um try except end;


Responder

Gostei + 0

04/10/2007

Gandalf.nho

Faltou um begin... end aí:

LocImg := ExtractFilePath(Application.ExeName)+´produtos\´; 
if (FileExists(LocImg + RetornaNomeFoto(DADOS.CDSPRODUTO.FieldByName(´BARRA´).AsString) + ´.jpg´)) then
begin 
RetornaNomeFoto(DADOS.CDSPRODUTO.FieldByName´BARRA´).AsString); 
Image2.Picture.LoadFromFile(LocImg + RetornaNomeFoto(DADOS.CDSPRODUTO.FieldByName(´BARRA´).AsString) + ´.jpg´)
end;



Responder

Gostei + 0

04/10/2007

Lucas_spohr

***RESOLVIDO***

era só o begin mesmo... hehe

Muito obrigado!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar