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

控件类型      属性名称  属性值Edit           Name      SearchListBox        Name      SourceListItems      输入一些字符串，如姓名等，用于提供检索数据ListBox        Name      ResultList　

// 获取指定汉字的拼音索引字母，如：“汉”的索引字母是“H”function GetPYIndexChar( hzchar:string):char;begincase WORD(hzchar[1]) shl 8 + 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'';elseresult := char(0);end;end;// 在指定的字符串列表SourceStrs中检索符合拼音索引字符串PYIndexStr的所有字符串，并返回。function SearchByPYIndexStr( SourceStrs:TStrings;PYIndexStr:string):string;label NotFound;vari, j   :integer;hzchar :string;beginfor i:=0 to SourceStrs.Count-1 dobeginfor j:=1 to Length(PYIndexStr) dobeginhzchar:=SourceStrs[i][2*j-1] + SourceStrs[i][2*j];if (PYIndexStr[j]<>''?'') and(UpperCase(PYIndexStr[j]) <>GetPYIndexChar(hzchar)) then goto NotFound;end;if result='''' then result := SourceStrs[i]else result := result + Char(13) + SourceStrs[i];NotFound:end;end;4．增加编辑框Search的OnChange事件：procedure TForm1.SearchChange(Sender: TObject);var ResultStr:string;beginResultStr:='''';ResultList.Items.Text := SearchByPYIndexStr(Sourcelist.Items, Search.Text);end;