• 函数类型：　自定义函数

• 函数说明：

变体与流之间的转换并压缩

• 代码如下：

procedure VariantToZipStream(Stream: TStream; const Value: Variant); var vStream: TMemoryStream; begin vStream := TMemoryStream.Create; try VariantToStream(vStream, Value); ZCompressStream(vStream, Stream, zcMax); finally vStream.DisposeOf; end; end;

• 用法示例：

无　

《学习大师原创文档，请勿转载，侵权必究》