Fórum Dúvida com Image.Picture.LoadFromFile #483805
27/06/2014
0
Bom dia a todos
Quando eu utilizo o Image para carrega uma imagem da máquina, eu verifico se a mesma existe, e caso sim eu carrego, só que caso a imagem não exista, tem alguma forma de deixa-la em branco? Tentei passar o caminho da imagem vazio mais gera erro.
Agradeço a ajuda:
procedure TfrmCadUsuario.CarregaImagem;
var
FileName : string;
begin
//carrega a imagem
FileName := dmGenerico.cdsUsuario.FieldByName('IMAGEM').AsString;
if FileExists(FileName) then
begin
Image1.Picture.LoadFromFile(FileName);
end;
end;
Quando eu utilizo o Image para carrega uma imagem da máquina, eu verifico se a mesma existe, e caso sim eu carrego, só que caso a imagem não exista, tem alguma forma de deixa-la em branco? Tentei passar o caminho da imagem vazio mais gera erro.
Agradeço a ajuda:
procedure TfrmCadUsuario.CarregaImagem;
var
FileName : string;
begin
//carrega a imagem
FileName := dmGenerico.cdsUsuario.FieldByName('IMAGEM').AsString;
if FileExists(FileName) then
begin
Image1.Picture.LoadFromFile(FileName);
end;
end;
Itamar Souza
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)