摘要：
1. Variant和Stream的互换procedure VarToStream(var AStm: TStream; var AOvar: Olevariant);var p: Pointer;begin AStm:= TMemoryStream.Create; AStm.Position := 0; p := VarArrayLock(AOvar); AStm.Write(p^, VarArrayHighBound(AOvar, 1)); VarArrayUnlock(AOvar);end;procedure StreamToVar(var AStm: TStream; var AOva 阅读全文
