请问代码错在那里？

Question

var
Source:TFileStream;
cs: TCompressionStream;
temp:TMemoryStream;
begin
Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareExclusive);
cs:= TCompressionStream.Create(clmax,source);
temp:=tmemorystream.Create ;
temp.SetSize(source.Size );
source.Position :=0;
temp.Position :=0;
temp.LoadFromStream(cs);
source.Write(temp,0);
cs.Free ;
......
end;
我想Source读入文件数据，压缩后成temp，再把压缩好的数据赋给source,代码错在那里？或者应该怎样写才正确？

Answer 1

仔细看看你这个cs，创建以后就在被loadfrom了，cs里面啥玩意儿呢？没东西吧？

Answer 2

1.建议LZ先搞明白TCompressionStream是怎么用的,
TCompressionStream.Create(clmax,'这里是输出流好不好');
2.source.Write(temp,0); temp是TMemoryStream,没见过这么用的