设计比 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
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
