Dúvida com Image.Picture.LoadFromFile

Delphi

27/06/2014

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;
Itamar Souza

Itamar Souza

Curtidas 0

Respostas

Itamar Souza

Itamar Souza

27/06/2014

Resolvido!!

procedure TForm1.BitBtn1Click(Sender: TObject);
var
FileName : string;
begin
//carrega a imagem
FileName := 'C:\Componentes - Sistemas Fontes\Desert.jpg';
if FileExists(FileName) then
Image1.Picture.LoadFromFile(FileName)
else
Image1.Picture := nil;
end;
GOSTEI 0
POSTAR