本文整理自网络，侵删。
//Delphi 下的通配符查找函数
Function IsLike(ax, abc: String): Boolean; //ax是子串,abc是源串
Var
abcstart, axstart, abclength, axlength: Integer;
endpartabc, endpartax, subax: String;
temp, abcwww, axwww: Integer;
Begin //aaa
temp := 0;
abcstart := 1;
axstart := 1;
axwww := 1;
abcwww := 1;
ax:=LowerCase(ax);
abc:=LowerCase(abc);
abclength := Length(abc);
axlength := Length(ax);
result := True;
While axstart <= axlength Do Begin //bbb
If ax[axstart] = '?' Then Begin
inc(axstart);
inc(abcstart);
If abcstart > abclength+1 Then Begin
result := false;
Break;
End;
Continue;
End;
If ax[axstart] = '*' Then Begin
inc(axstart);
temp := 1;
axwww := axstart;
abcwww := abcstart;
Continue;
End;
If Not (ax[axstart] In ['?', '*']) Then Begin //ccc
endpartax := Copy(ax, axstart, axlength - axstart + 1) + '?*';
If Pos('?', endpartax) < Pos('*', endpartax) Then Begin
subax := Copy(endpartax, 1, Pos('?', endpartax) - 1);
axstart := axstart + Pos('?', endpartax) - 1;
End
Else Begin
subax := Copy(endpartax, 1, Pos('*', endpartax) - 1);
axstart := axstart + Pos('*', endpartax) - 1;
End;
endpartabc := Copy(abc, abcstart, abclength - abcstart + 1);
If ((Pos(subax, endpartabc) <> 0) And (temp = 1)) Or ((Pos(subax, endpartabc) = 1) And (temp = 0)) Then Begin //ddd
If temp = 1 Then temp := 0;
abcstart := abcstart + (Pos(subax, endpartabc) + Length(subax) - 1);
End
Else Begin //ddd
If temp = 0 Then Begin
axstart := axwww;
abcwww := abcwww + 1;
abcstart := abcwww;
temp := 1;
Continue;
End;
result := false;
Break;
End; //ddd
End; //ccc
End; //bbb
End; //aaa
相关阅读 >>
Delphi shellexecute openurl 的跨平台实现
更多相关阅读请进入《Delphi》频道 >>
