Dúvida com Image.Picture.LoadFromFile
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
Curtidas 0
Respostas
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;
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