Delphi实现的Sunday字符串搜索算法

本文整理自网络，侵删。

 

type
  TBMKey=record
    Length:Integer;
    Offsets:array[0..255] of Integer;
    ps:PAnsiChar;
  end;
procedure InitKeyDistance(var AKey:TBMKey);
var
  I:Integer;
begin
AKey.Length:=StrLen(AKey.ps);
for I := 0 to 255 do
  AKey.Offsets[I]:=AKey.Length;
for I := 0 to AKey.Length-1 do
  AKey.Offsets[Ord(AKey.ps[I])]:=AKey.Length-I-1;
end;
function SundayStrStrA(s:PAnsiChar;const Key:TBMKey):PAnsiChar;
var
  i,pos,ls:Integer;
begin
if s=nil then
  Result:=nil
else if Key.ps=nil then
  Result:=s
else
  begin
  ls:=StrLen(s);
  Result:=nil;
  pos:=1;
  while pos<=ls-Key.Length do
    begin
    I:=pos-1;
    while I-pos+1<Key.Length do
      begin
      if s[I]<>Key.ps[I-pos+1] then
        Break;
      Inc(I);
      end;
    if i-pos+1=Key.Length then
      begin
      Result:=s+pos-1;
      Break;
      end
    else
      Inc(pos,Key.Offsets[Ord(s[pos+Key.Length-1])]+1);
    end;
  end;
end;
 

相关阅读 >>

incsecond：将一个tdatetime变量加减一定数量的秒数

Delphi 全局键盘钩子(wh_keyboard)

Delphi 保存导出或加载资源文件

tstringgrid 添加鼠标拖动功能

Delphi 在datasnap中使用firedac

Delphi中始终用webbrowser打开网页

Delphi弹出信息框大全

Delphi 提取字符串左侧内容

Delphi图片格式判断

Delphi中判断是否是64位操作系统

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi实现的Sunday字符串搜索算法