设计比 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
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
各位高手赶快帮帮忙。
现在有一个delphi写的dll，函数中有PInteger的返回参数，在delphi中可以正常调用，但是我在vb里写的时候就不知道该怎么来调用了。
请看代码
以下是delphi中的函数定义和调用代码，能正常运� ......
