- 博客(2)
- 收藏
- 关注
RSS订阅原创 流的解压及压缩(代码精简高效)
用一个函数即实现流的压缩和解压,使用方法:ZIP(源流,目标流,True/False)TRUE为压缩,FALSE为解压函数如下:function ZIP(mInputStream: TStream; mOutputStream: TStream;Compress:BOOL): BOOL;var I: Integer; p:pchar; TCS:TCompressionStream
2004-04-26 22:07:00
1007
原创 在流中查找任意字串
开发中有时需要在流中查找某个字串,这些字串有可能是ASCII表后半部分或混杂.但是网上提供的例程效果不佳而且代码冗长.后来自己抽个时间写了一个,代码极少,效率很高.仅供各位参考:function ScanStream(T:Tstream;S:String):integer;var i,j:integer; p:Pchar;begin getMem(p,T.size);//分配内存
2004-04-26 12:17:00
759
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人