知识大全 Delphi用拼音首字符序列实现检索功能

Posted 2022-07-14 知

篇首语：不积跬步，无以至千里;不积小流，无以成江海。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi用拼音首字符序列实现检索功能相关的知识，希望对你有一定的参考价值。

Delphi用拼音首字符序列实现检索功能 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　在日常工作和生活中我们经常使用电子记事本查找个人通讯录信息或在单位的应用程序中查询客户档案或业务资料这个过程中往往需要输入大量的汉字信息对于熟悉计算机的人这已经是一件头疼的事那些不太熟悉计算机或根本不懂汉字输入的用户简直就望而生畏作为对数据检索技术的一种新的尝试作者探索使用汉字拼音的首字符序列作为检索关键字这样用户不必使用汉字只须简单地键入要查询信息的每个汉字的拼音首字符即可比如你想查找关键字中国人民银行你只需要输入 zgrmyh 作者希望通过下面的例子为广大计算机同行起一个抛砖引玉的作用让我们开发的程序更加便捷好用

　　原理很简单找出汉字表中拼音首字符分别为 A 至 Z 的汉字内码范围这样对于要检索的汉字只需要检查它的内码位于哪一个首字符的范围内就可以判断出它的拼音首字符

　　程序更简单包括个控件一个列表存放著所有待检索的信息一个列表用于存放检索后的信息一个编辑框用于输入检索关键字（即拼音首字符序列）详细如下

　　 ．进入Delphi创建一个新工程 Project

　　 ．在Form 上创建以下控件并填写属性

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

　　 ．键入以下两个函数

　　　　// 获取指定汉字的拼音索引字母如汉的索引字母是 H 　　　　function GetPYIndexChar( hzchar:string):char;　　　　begin　　　　case WORD(hzchar[ ]) shl + WORD(hzchar[ ]) of　　　　$B A $B C : result := A ;　　　　$B C $B C : result := B ;　　　　$B C $B ED : result := C ;　　　　$B EE $B E : result := D ;　　　　$B EA $B A : result := E ;　　　　$B A $B C : result := F ;　　　　$B C $B FD : result := G ;　　　　$B FE $BBF : result := H ;　　　　$BBF $BFA : result := J ;　　　　$BFA $C AB : result := K ;　　　　$C AC $C E : result := L ;　　　　$C E $C C : result := M ;　　　　$C C $C B : result := N ;　　　　$C B $C BD : result := O ;　　　　$C BE $C D : result := P ;　　　　$C DA $C BA : result := Q ;　　　　$C BB $C F : result := R ;　　　　$C F $CBF : result := S ;　　　　$CBFA $CDD : result := T ;　　　　$CDDA $CEF : result := W ;　　　　$CEF $D : result := X ;　　　　$D B $D D : result := Y ;　　　　$D D $D F : result := Z ;　　　　else　　　　result := char( );　　　　end;　　　　end;

　　　　// 在指定的字符串列表SourceStrs中检索符合拼音索引字符串　　　　PYIndexStr的所有字符串并返回　　　　function SearchByPYIndexStr　　　　( SourceStrs:TStrings;　　　　PYIndexStr:string):string;　　　　label NotFound;　　　　var　　　　i j :integer;　　　　hzchar :string;　　　　begin　　　　for i:= to SourceStrs Count do　　　　begin　　　　for j:= to Length(PYIndexStr) do　　　　begin　　　　hzchar:=SourceStrs[i][ *j ]　　　　+ SourceStrs[i][ *j];　　　　if (PYIndexStr[j]<> ? ) and　　　　(UpperCase(PYIndexStr[j]) <>　　　　GetPYIndexChar(hzchar)) then goto NotFound;　　　　end;　　　　if result= then result := SourceStrs[i]　　　　else result := result + Char　　　　( ) + SourceStrs[i];　　　　NotFound:　　　　end;　　　　end;

　　 ．增加编辑框Search的OnChange事件

　　　　procedure TForm SearchChange(Sender: TObject);　　　　var ResultStr:string;　　　　begin　　　　ResultStr:= ;　　　　ResultList Items Text := SearchByPYIndexStr　　　　(Sourcelist Items Search Text);　　　　end;

　　 ．编译运行后

　　在编辑框Search中输入要查询字符串的拼音首字符序列检索结果列表ResultList就会列出检索到的信息检索中还支持？通配符对于难以确定的的文字使用？替代位置可以实现更复杂的检索

cha138/Article/program/Delphi/201311/24877