請問各位大大一下的Delphi要如何轉成bcb呀
能不能提示一下尤其是
if AField.IsNull then
    Exit;
和
AStream := TMemoryStream.Create;
真的看不太懂不知道要什麼轉成bcb
請各位大大提示或說明一下
－謝謝大大的回覆


procedure LoadImageFromField(APicture: TPicture; AField: TBlobField);
var
  ABitmap: TBitmap;
  AStream: TMemoryStream;
begin
  if AField.IsNull then
    Exit;

  AStream := TMemoryStream.Create;
  try
    AField.SaveToStream(AStream);

    // Skip OLE storage headeer
    AStream.Seek(78, soFromBeginning);
    ABitmap := TBitmap.Create;
    try
    ABitmap.LoadFromStream(AStream);
    APicture.Graphic := ABitmap;
    finally
    ABitmap.Free;
    end;
  finally
    AStream.Free;
  end;
end;        procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin
  LoadImageFromField(
    Image1.Picture,
    DataSet.FieldByName('圖片') as TBlobField
  );
end;