Delphi--Stream和Variant的转化

网上广为流传的两个函数，确实好用。记录一下
procedure VariantToStream (const v : OleVariant; Stream : TMemoryStream);
var
  p : pointer;
begin
  Stream.Position := 0;
  Stream.Size := VarArrayHighBound (v, 1) - VarArrayLowBound (v, 1) + 1;  //其实可以直接取下维作为流大小，因为一般情况下变体数组上维为0的
  p := VarArrayLock (v);   //我写程序时，就是到此卡住了，因为变体数组是一种安全数组，它是有描述数据的数组，v[0]才是它的真实起始地址，但就是很难得到它的地址，而这个函数刚好处理了这个问题!
  Stream.Write (p^, Stream.Size);  //此句让我这个初学者惊叹，也不是没有这样用过，只是没有在数组中这样结合用过，呵呵，学习学习!
  VarArrayUnlock (v);   //再使用了VarArratLock()函数以后，一定要用此函，不然会报错的!
  Stream.Position := 0;
end;

procedure StreamToVariant (Stream : TMemoryStream; var v : OleVariant);
var
  p : pointer;
begin
  v := VarArrayCreate ([0, Stream.Size - 1], varByte);   //也学习一下这个函数，它是用来建立一个变体数组
  p := VarArrayLock (v);   //其它就没有什么了，基本跟上面的是相反的!
  Stream.Position := 0;
  Stream.Read (p^, Stream.Size);   //其实这两个过程的妙处就在此了，指针的应用，棒极了
  VarArrayUnlock (v);
end;