常规参数
文章标题：
权重：
文章摘要：
procedure TForm2.VariantToBMP(aValue : OleVariant;var aBmp:TBitmap); var Stream : TMemoryStream; begin try Stream := TMemoryStream.Create; VariantToStream (aValue,Stream); aBmp.LoadfromStream(Stream); finally VariantClear(aValue); Stream.free; end;
关键字：
转换 类型 Stream var end Stream.Size begin TMemoryStream
管理密码: