if ...else问题

Question

是这样,图片列中存的图片路径,如果不为空则显示图片,如果为空则显示 图片尚未上传 ,我想用if ..else来实现,不会用,不知道怎么实现,那位哥哥帮我指点一下,
if
  adoquery1.FieldByName('图片')<>''
  then
  begin
   Image1.Picture.LoadFromFile(adoQuery1.FieldByName('图片').AsString);
     close  ;
     end
     else
     showmessage('图片尚未上传');
end;

Answer 1

if (adoquery1.FieldByName('图片') <>'' ) or
(not adoquery1.FieldByName('图片')isnull)  then
begin 
  Image1.Picture.LoadFromFile(adoQuery1.FieldByName('图片').AsString); 
end 
else 
  showmessage('图片尚未上传'); 
end; 

Answer 2

if adoquery1.FieldByName('图片') <>'' then
begin
  Image1.Picture.LoadFromFile(adoQuery1.FieldByName('图片').AsString);
  close  ;
end
else
  showmessage('图片尚未上传');

Answer 3

if adoquery1.FieldByName('图片').AsString <>'' then
begin
  Image1.Picture.LoadFromFile(adoQuery1.FieldByName('图片').AsString);
  close  ;
end
else
  showmessage('图片尚未上传');

Answer 4

if 
  adoquery1.FieldByName('图片')).AsString <>'' 
  then 
  begin 
  Image1.Picture.LoadFromFile(adoQuery1.FieldByName('图片').AsString); 
    close  ; 
    end 
    else 
    showmessage('图片尚未上传'); 
end; 

Answer 5

delphi的基本语法if   then
  begin
    //..........
  end
  else
  begin
    //...........
  end;

Answer 6

if TBlobField(adoquery1.fieldbyname('图片')).BlobSize <> 0  then 
begin 
  //Image1.Picture.LoadFromFile(adoQuery1.FieldByName('图片').AsString); 
  gJpg := TJPEGImage.Create;
  TempStream := TStringStream.Create('');
  TBlobField(adoquery1.fieldbyname('图片')).SaveToStream(TempStream);
  TempStream.Position := 0;
  Image1.Picture.LoadFromStream(TempStream);
  adoquery1.close  ; 
end 
else 
   showmessage('图片尚未上传'); 
 

Answer 7

图片列中存的图片路径，未使用BLOB字段存放于数据库，直接从文件中加载即可