用拼音首字符来实现检索功能

• 
  　　在日常工作和生活中我们经常使用电子记事本查找个人通讯录信息，或在单位的应用程序中查询客户档案或业务资料，这个过程中往往需要输入大量的汉字信息，对于熟悉计算机的人这已经是一件头疼的事，那些不太熟悉计算机或根本不懂汉字输入的用户简直就望而生畏。作为对数据检索技术的一种新的尝试，作者探索使用汉字拼音的首字符序列作为检索关键字，这样，用户不必使用汉字，只须简单地键入要查询信息的每个汉字的拼音首字符即可。比如你想查找关键字“中国人民银行”，你只需要输入“zgrmyh”。作者希望通过下面的例子，为广大计算机同行起一个抛砖引玉的作用，让我们开发的程序更加便捷、好用。 　　
  
  　　---- 原理很简单，找出汉字表中拼音首字符分别为“A”至“Z”的汉字内码范围，这样，对于要检索的汉字只需要检查它的内码位于哪一个首字符的范围内，就可以判断出它的拼音首字符。　　
  
  　　---- 程序更简单，包括3个控件：一个列表存放着所有待检索的信息；一个列表用于存放检索后的信息；一个编辑框用于输入检索关键字（即拼音首字符序列）。详细如下：　　
  
  　　---- 1．进入Delphi创建一个新工程：Project1　　
  
  　　---- 2．在Form1上创建以下控件并填写属性：　　
  
  　　控件类型 属性名称 属性值
  
  　　Edit Name Search
  
  　　ListBox Name SourceList
  
  　　Items 输入一些字符串，如姓名等，用于提供检索数据
  
  　　ListBox Name ResultList
  
  　　---- 3．键入以下两个函数　　
  
  　　// 获取指定汉字的拼音索引字母，如：“汉”的索引字母是“H”
  
  　　function GetPYIndexChar( hzchar:string):char;
  
  　　begin
  
  　　case 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';
• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用拼音首字符来实现检索功能 相关文章：
• ·用拼音首字符来实现检索功能
• 用拼音首字符来实现检索功能 相关软件

上一篇:Delphi模拟最小化恢复关闭按纽

下一篇:Delphi的8个技巧

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐