常规参数
文章标题：
权重：
文章摘要：
procedure TForm2.VariantToStream (const v : olevariant; Stream : TMemoryStream); var p : pointer; begin Stream.Position := 0; Stream.Size := VarArrayHighBound (v, 1) - VarArrayLowBound(v, 1) + 1; p := VarArrayLock (v); Stream.Write (p^, Stream.Size)
关键字：
管理密码: