Delphi用拼音首字符序列实现检索功能-Delphi-优质IT资源分享社区

admin
管理员
管理员
  • UID1
  • 粉丝27
  • 关注4
  • 发帖数581
  • 社区居民
  • 忠实会员
  • 原创写手
阅读:134回复:0

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

楼主#
更多 发布于:2016-06-12 11:59

Delphi用拼音首字符序列完成检索功用,Delphi教程,Delphi事例,Delphi实例
在平时工作和生活中咱们
经常
运用电子记事本查找自己通信录信息,或在单位的
运用程序中
查询客户档案或事务
资料,这个过程中通常需要输入很多的汉字信息,对于
熟悉计算机的人这已经是一件头疼的事,那些不太
熟悉计算机或
底子不明白汉字输入的消费者
简直就
望而生畏 。作为对数据检索技能的一种新的测验,作者探求
运用汉字拼音的首字符序列作为检索
关键字,这么,消费者
无须
运用汉字,只须
便利地键入要
查询信息的每个汉字的拼音首字符即可 。
比如你想查找
关键字“中国人民银行”,你
只有求输入“zgrmyh” 。作者
期望经过下面的比如,为
广阔计算机同行起一个抛砖引玉的效果,让咱们开发的程序愈加快捷、好用 。
原理很
便利,找出汉字表中拼音首字符分别为“A”至“Z”的汉字内码
规划,这么,对于要检索的汉字
只有求
检查它的内码坐落哪一个首字符的
规划内,就
能够推断出它的拼音首字符 。
程序更
便利,包括3个控件:一个列表
寄存着悉数待检索的信息;一个列表用于
寄存检索后的信息;一个编辑框用于输入检索
关键字(即拼音首字符序列) 。
翔实如下:
开放百变的魅力 秋季人像拍摄实战攻略站点点击率与网站排名的联系分享
拍摄新手怎么避免5个简单犯的过错抓住拍摄的魂灵 风景拍摄用光窍门揭秘
1.进入Delphi
创造一个新工程:Project1
2.在Form1上
创造以下控件并填写特点:
控件类型 特点称号 特点值
Edit Name Search
ListBox Name SourceList
Items 输入一些字符串,如名字等,用于供给检索数据
ListBox Name ResultList
怎么增加SEO效果的3个做法win8界面鼠标控制窍门
电脑开机速度慢怎么办 教你怎么处理IE 8浏览器加快窍门
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';
$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的悉数字符串,并回来 。
function SearchByPYIndexStr
( SourceStrs:TStrings;
PYIndexStr:string):string;
label NotFound;
var
i, j :integer;
hzchar :string;
begin
for i:=0 to SourceStrs.Count-1 do
begin
for j:=1 to Length(PYIndexStr) do
begin
hzchar:=SourceStrs[2*j-1]
+ SourceStrs[2*j];
if (PYIndexStr[j]<>'?') and
(UpperCase(PYIndexStr[j]) <>
GetPYIndexChar(hzchar)) then goto NotFound;
end;
if result=' then result := SourceStrs
else result := result + Char
(13) + SourceStrs;
NotFound:
end;
end;
4.增加编辑框Search的OnChange事情:
procedure TForm1.SearchChange(Sender: TObject);
var ResultStr:string;
begin
ResultStr:=';
ResultList.Items.Text := SearchByPYIndexStr
(Sourcelist.Items, Search.Text);
end;
5.编译运转后
在编辑框Search中输入要
查询字符串的拼音首字符序列,检索
结果列表ResultList就会列出检索到的信息,检索中还
支持“?”通配符,对于难以确定的的文字
运用“?”
替代方位,
能够完成更杂乱的检索 。
本程序在Delphi4.0中编译运转经过 。
在平时工作和生活中咱们
经常
运用电子记事本查找自己通信录信息,或在单位的
运用程序中
查询客户档案或事务
资料,这个过程中通常需要输入很多的汉字信息,对于
熟悉计算机的人这已经是一件头疼的事,那些不太
熟悉计算机或
底子不明白汉字输入的消费者
简直就
望而生畏 。作为对数据检索技能的一种新的测验,作者探求
运用汉字拼音的首字符序列作为检索
关键字,这么,消费者
无须
运用汉字,只须
便利地键入要
查询信息的每个汉字的拼音首字符即可 。
比如你想查找
关键字“中国人民银行”,你
只有求输入“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';
$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的悉数字符串,并回来 。
function SearchByPYIndexStr
( SourceStrs:TStrings;
PYIndexStr:string):string;
label NotFound;
var
i, j :integer;
hzchar :string;
begin
for i:=0 to SourceStrs.Count-1 do
begin
for j:=1 to Length(PYIndexStr) do
begin
hzchar:=SourceStrs[2*j-1]
+ SourceStrs[2*j];
if (PYIndexStr[j]<>'?') and
(UpperCase(PYIndexStr[j]) <>
GetPYIndexChar(hzchar)) then goto NotFound;
end;
if result=' then result := SourceStrs
else result := result + Char
(13) + SourceStrs;
NotFound:
end;
end;
4.增加编辑框Search的OnChange事情:
procedure TForm1.SearchChange(Sender: TObject);
var ResultStr:string;
begin
ResultStr:=';
ResultList.Items.Text := SearchByPYIndexStr
(Sourcelist.Items, Search.Text);
end;
5.编译运转后
在编辑框Search中输入要
查询字符串的拼音首字符序列,检索
结果列表ResultList就会列出检索到的信息,检索中还
支持“?”通配符,对于难以确定的的文字
运用“?”
替代方位,
能够完成更杂乱的检索 。
本程序在Delphi4.0中编译运转经过 。









优质IT资源分享社区为你提供此文。
本站有大量优质Delphi教程视频,资料等资源,包含Delphi基础教程,高级进阶教程等等,教程视频资源涵盖传智播客,极客学院,达内,北大青鸟,猎豹网校等等IT职业培训机构的培训教学视频,价值巨大。欢迎点击下方链接查看。
Delphi教程视频
优质IT资源分享社区(www.itziyuan.top)
一个免费,自由,开放,共享,平等,互助的优质IT资源分享网站。
专注免费分享各大IT培训机构最新培训教学视频,为你的IT学习助力!

!!!回帖受限制请看点击这里!!!
!!!资源失效请在此版块发帖说明!!!

[PS:按 CTRL+D收藏本站网址~]

——“优质IT资源分享社区”管理员专用签名~

本版相似帖子

游客