Código
Figura: file of Byte;
begin
if OpenPictureDialog.Execute then
begin
AssignFile(Figura, OpenPictureDialog.FileName);
Reset(Figura);
try
if FileSize(Figura) > 512000 then
ShowMessage('Arquivo maior que 500kb!')
else
DBImage.Picture.Bitmap.LoadFromFile(OpenPictureDialog.FileName);
finally
CloseFile(Figura);
end;
end;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009