Delphi用拼音首字符序列实现检索功能

Delphi用拼音首字符序列实现检索功能原理很简洁，找出汉字表中拼音首字符分别为“A”至“Z”的汉字内码范围，这样，对于要检索的汉字只需要检查它的内码位于哪一个首字符的范围内，就可以推断出它的拼音首字符。

程序更简洁，包括3个控件：一个列表存放着全部待检索的信息；一个列表用于存放检索后的信息；一个编辑框用于输入检索关键字（即拼音首字符序列）。具体如下：

1．进入Delphi创立一个新工程：Project1

2．在Form1上创立以下控件并填写属性：

控件类型属性名称属性值

EditNameSearch

ListBoxNameSourceList

Items输入一些字符串，如姓名等，用于供应检索数据

ListBoxNameResultList

3．键入以下两个函数

//猎取指定汉字的拼音索引字母，如：“汉”的索引字母是“H”

functionGetPYIndexChar(hzchar:string):char;

begin

caseWORD(hzchar[1])shl8+WORD(hzchar[2])of

$B0A1..$B0C4:result:=”A”;

$B0C5..$B2C0:result:=”B”;

$B2C1..$B4ED:result:=”C”;

$B4EE..$B6E9:result:=”D”;

$B6EA..$B7A1:result:=”E”;

$B7A2..$B8C0:result:=”F”;

$B8C1..$B9FD:result:=”G”;

$B9FE..$BBF6:result:=”H”;

$BBF7..$BFA5:result:=”J”;

$BFA6..$C0AB:result:=”K”;

$C0AC..$C2E7:result:=”L”;

$C2E8..$C4C2:result:=”M”;

$C4C3..$C5B5:result:=”N”;

$C5B6..$C5BD:result:=”O”;

$C5BE..$C6D9:result:=”P”;

$C6DA..$C8BA:result:=”Q”;

$C8BB..$C8F5:result:=”R”;

$C8F6..$CBF9:result:=”S”;

$CBFA..$CDD9:result:=”T”;

$CDDA..$CEF3:result:=”W”;

$CEF4..$D188:result:=”X”;

$D1B9..$D4D0:result:=”Y”;

$D4D1..$D7F9:result:=”Z”;

else

result:=char(0);

end;

end;

//在指定的字符串列表SourceStrs中检索符合拼音索引字符串

PYIndexStr的全部字符串，并返回。

functionSearchByPYIndexStr

(SourceStrs:TStrings;

PYIndexStr:string):string;

labelNotFound;

var

i,j:integer;

hzchar:string;

begin

fori:=0toSourceStrs.Count-1do

begin

forj:=1toLength(PYIndexStr)do

begin

hzchar:=SourceStrs[i][2*j-1]

+SourceStrs[i][2*j];

if(PYIndexStr[j]'?')and

(UpperCase(PYIndexStr[j])

GetPYIndexChar(hzchar))thengotoNotFound;

end;

ifresult=””thenresult:=SourceStrs[i]

elseresult:=result+Char

(13)+SourceStrs[i];

NotFound:

end;

end;

4．增加编辑框Search的OnChange大事：

procedureTForm1.SearchChange(Sender:TObject);

varResultStr:string;

begin

ResultStr:=””;

ResultList.Items.Text:=SearchByPYIndexStr

(Sourcelist.Items,Search.Text);

end;

5．编译运行后

在编辑框Search中输入要查询