繁體中文当前位置: 首页 > 图文教程 > 开发语言 > Delphi > Delphi学习:在流中查找任意字串
- Delphi
- Delphi客户服务器应用开发（三）
- Delphi快速入门（五）
- Delphi面向对象的编程方法（一）
- Delphi面向对象的编程方法（二）
- Delphi面向对象的编程方法（三）
- Delphi面向对象的编程方法（四）
- 字符串列表及应用（一）
- 字符串列表及应用（二）
- 文本编辑器的设计（一）
- 文本编辑器的设计（二）
- Delphi图形图像编程（一）
- Delphi的两个实用技巧(1)
- Delphi的两个实用技巧(2)
- delphi实例编程之--制作可随处拖放的工具栏
- Delphi快速入门（一）
- Delphi快速入门（二）
- Delphi快速入门（三）
- Delphi快速入门（四）
- 动态链接库编程（二）
- Delphi图形图像编程（二）
Delphi学习:在流中查找任意字串
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-30 浏览: 61 ::
收藏到网摘: n/a
开发中有时需要在流中查找某个字串,这些字串有可能是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;
评论 (0) All
