Zitat von
alzaimar:
Code:
zc := TCompressionStream.Create(clMax, ms1);
try
zc.CopyFrom(ms, 0);
finally
[color=#FF0000][b]zc.free;[/b][/color]
end;
lRateOfCompression.Caption := Format('%.3f', [[color=#FF0000][b]zc.CompressionRate[/b][/color]]);
Das
kann gutgehen ... muss aber nicht
