Delphi下实现包含通配符的文本查找
本文最早在编程论坛上发表，文章地址：http://programbbs.com/bbs/view12-21351-1.htm，相关文件可以在上述地址的页面中下载。转载时请注明出处。
一、前言
通配符就是指“*”和“?”两个字符，“*”表示当前位置可以没有或者有多个任意字符；“?”表示当前位置有一个任意字符。通配符匹配在网上资料中都有讲到，但主要说的都是字符串匹配而不是文本查找。我结合通配符匹配的算法写了一个支持通配符的文本查找函数。这个函数的源代码可以在本楼末尾的压缩包中得到。现在先说一下通配符匹配的算法。
二、通配符匹配算法
利用包含通配符的模式串（以下简称模式串）进行文本查找，通常会匹配到一个不定长度的文本。所以匹配完成后不但要得到匹配文本的结束位置也要得到匹配文本的开始位置。现在先来看一个简单的问题：假设有长度为PLen的模式串P，以及长度为TLen的文本T。如果P中不包含通配符，那么用下面这个简单算法就可以完成查找：
function FindText1(P,T : PAnsiChar; PLen,TLen : Integer; var SelStart,SelEnd : Integer): Boolean;
var
PCur,TCur : Integer;
begin
result:=false;
for TCur:=SelStart to TLen-PLen do
begin
for PCur:=0 to PLen-1 do
if P[PCur]<>T[TCur+PCur] then break;
if PCur>=PLen then
begin
SelStart:=TCur;
SelEnd:=TCur+PLen;
result:=true;
break;
end;
end;
end;
以上函数从文本T的SelStart位置开始向下查找模式串P，返回是否找到，如果找到设置SelStart和SelEnd为匹配文本的开始位置和结束位置。这个算法是最简单的文本查找算法，它有两层循环，外层for循环用以确认查找位置并逐一后移，
相关文档：
absolute
//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.
var
Str: string[32];
StrLen: Byte absolute Str;
//这个声明指定了变量StrLen起始地址与Str相同.
//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.
begin
Str := 'abc';
Ed ......
技术交流,DH讲解. 哈哈,我承认我是标题党.
最近看天书夜读里面是对C语言的代码反汇编,不错,可惜Delphi没有这样的书,那我们自己动手吧.
首先进入For循环了. Function TestFor( a, b: Integer ): Integer ;
Var
I: Integer ;
Begin
Result := a + b ;
For I := 0 To 49 Do
Result := Result + I ......
注册码：6amd-pdj686-apme9d-9cdr
密匙：yvx-27c
Delphi部分函数、命令、属性中文说明
Abort 函数 引起放弃的意外处理
Abs 函数 绝对值函数
AddExitProc 函数 将一过程添加到运行时库的结束过程表中
Addr 函数 返回指定对象的地址
AdjustLineBreaks 函数 将给定字符串的行分隔符调整为CR/LF序列
Align 属性 使控件� ......
