设计比 DELPHI POS函数快5-10倍的字符串查找算法
经过多年研究，本人已经设计一种高效率的字符串查找算法，比绝大部分的查找算法快5-10倍，教科书上经典的KMP算法
实在太慢，太复杂，难以理解，本人设计的算法，简单，快速，现在贴上代码，请各位测试验证。
该算法暂时命名为TRH算法。
其设计思想暂时不公布，先请大家验证该程序，看看效率到底怎么样？依照本人的测测试，比DELPHI POS函数快8倍左右！
本算法特别对于待查找的子字符串比较长时候(>=100)优势极为明显！
下面为算法过程的程序：
{
函数参数说明：
StrArr:文本字符串，其类型为一个自定义字符数组 TYPE TARR = array[1..NSIZE] of char;
SubStr:待查找的子字符串
loc:返回所有出现子字符串的位置
}
procedure TRH_STR_SEARCH(const StrArr: TARR; SubStr:string; var Loc: string);
var
I, J, K: integer;
StrLen, SubStrLen: integer;
FindTable: array[0..255] of integer;
SKIP: integer;
begin
SubStrLen := Length(SubStr);
StrLen := Length(StrArr);
for i := 0 to 255 do
begin
FindTable[i] := SubStrLen + 1;
end;
for i := 1 to SubStrLen do
begin
FindTable[ord(SubStr[i])] := SubStrLen - i + 1;
end;
&n
相关问答：
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
我本来在学校是弄的J2EE
昨天去了长沙一家公司应聘 说是有一个项目 delphi的
实习期一个月 四天半的delphi培训 后面25天给你一个设计文档自己做一个项目
走后不久打电话过来叫我星期一去报到
看到delphi� ......
