代码优化时需要用到精确的计时器。常用的有GetTickCount函数，可以达到毫秒级的精度。但还是很不够的，这时可以采用提高循环次数的办法。另外，还有一个精度更高的定时——“高分辨率性能计数器”（high-resolution performance counter），它提供了两个API函数，取得计数器频率的QueryPerformanceFrequency和取得计数器数值的QueryPerformanceCounter。实现原理是利用计算机中的8253,8254可编程时间间隔定时器芯片实现的。在计算机内部有三个独立的16位计数器。
计数器可以以二进制或二—十进制(BDC)计数。计数器每秒产生1193180次脉冲，每次脉冲使计数器的数字减一，产生频率是可变的,用QueryPerformanceFrequency可以得到,一般情况下都是1193180。QueryPerformance Counter可以得到当前的计数器值。所以只要你的计算机
它的作用是在字符串S中查找字符串Substr，返回值是Substr在S中第一次出现的位置，如果没有找到，返回值为0。
在本人编写WebSeizer软件（天空软件站有下载）过程中，Pos已经不能满足要求。一方面：在处理网页中的字符串时，要求对大小写不敏感，即 h t m l 和HTML代表的含义完全一样。另一方面：我们还要求有一个函数，返回值是Substr在S中最后一次出现的位置，而不是第一次出现的位置。下面是这个函数的未经优化的代码。
这个函数里，用到了Delete函数，我们再来看一看System.pas文件里Delete函数的实现过程，请看下面代码：
Delete 函数中，有这两句：CALL Move和CALL_LstrSetLength。其中Move函数是将一个内存块拷贝到另一个地址，LstrSetLength函数将改变字符串的长度，其中也有对内存进行分配的代码。这些对内存进行操作的函数都是极其消耗CPU运行时间的，所以Delete函数也是一个极其消耗CPU运行时间的函数。为了尽量避免使用这些函数，我对自定义函数RightPos进行了改写。
请看第一句PCharS:=PChar(s)，它的作用是将Delphi字符串强制转化为PChar 格式(PChar 是Windows中使用的标准字符串，不包含长度信息，使用0为结束标志)，并得到指向PChar字符串的指针PcharS。
下面就要对自定义函数的运行时间进行测量，为了提高测量的精度，减小随机性，我们计算重复10000次所需的时间。代码如下：
可以看出测试的结果是比较满意的，改进过的RightPosEx函数效率比RightPos高很多，考虑到测试用的字符串比较短，使用长字符串效果更明显。如果直接使用Delphi的字符串格式而不用转为PChar格式，则效率又可提高一步。但字符串格式是Delphi语言自定义的,存在兼容性问题。所以这一版本的字串搜索函数就不列出来了，读者在前面代码的基础上很容易就可写出来的。代码优化到底要执行到哪一步，是仁者见仁，智者见智的问题。有的人偏重于提高效率，有的人偏重于保证兼容性，这需要在实际使用过程中作取舍。
