typhon字符串压缩

typhon安装目录下codetyphon\CodeOcean\pl_Solutions\samples\LSZCompress为压缩函数例子

uses

  ... LSZCompress ,zstream;


//压缩字符串
...
var
   InStr,OutStr:string;
begin
  OutStr := LSZCompressString(InStr, clMax);   


//解压缩字符串
...
var
   InStr,OutStr:string;
begin
   OutStr := LSZUnCompressString(InStr);