那位高手给讲讲TCompressionStream的用法，help上没有呀(5分)

那位高手给讲讲TCompressionStream的用法，help上没有呀

procedure CompressString(var CompressedStream: TMemoryStream;const CompressionLevel: TCompressionLevel);
var
SourceStream: TCompressionStream;
DestStream: TMemoryStream;
Count: Integer;
Begin
Count := CompressedStream.Size;
DestStream := TMemoryStream.Create;
SourceStream:=TCompressionStream.Create(CompressionLevel, DestStream);
Try
CompressedStream.SaveToStream(SourceStream);
SourceStream.Free;
CompressedStream.Clear;
CompressedStream.CopyFrom(DestStream, 0);
finally
DestStream.Free;
end;
end;

还是不大清楚，我手上也有类似的东东。TCompressionStream用它时改注意啥

下载delphi未经证实之葵花宝典，上边有

我去下载下来看看！

不会是没有人会吧！谁会就教教我

多人接受答案了。

多人接受答案了。