怎样在imgedit1中显示paradox数据库中的图形字段中的图象呢？

Question

var
   strTempFile: String;
begin
   if not TBlobField(Table1.FindField('photo')).IsNull then
   begin
      strTempFile := ExtractFilePath(ParamStr(0)) + '~Temp' + FormatDateTime('hhmmss', Time) + '.jpg'; // 或是 bmp，看保存时的格式。
      if FileExists(strTempFile) then
         DeleteFile(strTempFile);      TBlobField(Table1.FindField('photo')).SaveToFile(strTempFile);
      Image1.Picture.LoadFromFile(strTempFile);
      DeleteFile(strTempFile);
   end;
end;

Answer 1

我的数据库是paradox，表名是czb，其中图形字段名为a51，我是用SQL语句写的，怎么写语句才能实现在imgedit1中显示paradox数据库中的图形字段中的图象呢？

Answer 2

TBlobField(Query1.FindField('a51')).SaveToFile(strTempFile);
Image1.Picture.LoadFromFile(strTempFile);
DeleteFile(strTempFile);