• 函数类型：　自定义函数

• 函数说明：

压缩流转变体

• 代码如下：

function ZipStreamToVariant(Stream: TStream): Variant; var vStream: TMemoryStream; begin if Stream.Size = 0 then Exit(null); vStream := TMemoryStream.Create; try Stream.position := 0; ZDecompressStream(Stream, vStream); Result := StreamToVariant(vStream); finally vStream.DisposeOf; end; end;

• 用法示例：

无　

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