我的配置是Duron700，256M内存，测试中RightPos函数重复了10000遍，RightPos使用的参数为：Substr=12，S=Edit12ewew12tet。得到的测量结果是Count=217000，又对其他几个函数作了对比，结果如下：
函数名 重复次数 QueryPerformanceCounter 计数值
Pos 10000 150000
RightPos 10000 217000
RightPosEx 10000 160000
可以看出测试的结果是比较满意的，改进过的RightPosEx函数效率比RightPos高很多，考虑到测试用的字符串比较短，使用长字符串效果更明显。如果直接使用Delphi的字符串格式而不用转为PChar格式，则效率又可提高一步。但字符串格式是Delphi语言自定义的,存在兼容性问题。所以这一版本的字串搜索函数就不列出来了，读者在前面代码的基础上很容易就可写出来的。代码优化到底要执行到哪一步，是仁者见仁，智者见智的问题。有的人偏重于提高效率，有的人偏重于保证兼容性，这需要在实际使用过程中作取舍。
（T127）
上一篇： 如何用Delphi实现局域网内消息传递
下一篇： 提供一个基于C 的加密/解密算法
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
