在流中查找任意字串
2008-04-09 04:25:23来源：互联网 阅读 ()
开发中有时需要在流中查找某个字串,这些字串有可能是ASCII表后半部分或混杂.但是网上提供的例程效果不佳而且代码冗长.
后来自己抽个时间写了一个,代码极少,效率很高.仅供各位参考:
function ScanStream(T:Tstream;S:String):integer;
var i,j:integer;
p:Pchar;
begin
getMem(p,T.size);//分配内存
T.ReadBuffer(p^,t.Size );//读
for i:=0 to T.Size -1 do begin
for j:=1 to length(S) do
if p[i j]<>S[j] then break;//有一个不同即退出
if j>length(S) then begin //依据
result:=i 1;
break; //完成
end;
end;
FreeMem(p);
end;
标签：
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有
上一篇：从数据库绘制MapX地图
下一篇：流的解压及压缩(代码精简高效)
IDC资讯： 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营： 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程： Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术： Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧： 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作： FrontPages Dreamweaver Javascript css photoshop fireworks Flash
