自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

原创 流的解压及压缩(代码精简高效)

用一个函数即实现流的压缩和解压,使用方法: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 928

原创 在流中查找任意字串

开发中有时需要在流中查找某个字串,这些字串有可能是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 715

提示
确定要删除当前文章?
取消 删除