zlibconst.pas

一个delphi下压缩成zip文件的例子

unit ZLibConst;

interface

resourcestring
 sTargetBufferTooSmall = 'ZLib error: target buffer may be too small';
 sInvalidStreamOp = 'Invalid stream operation';
  
implementation

end.