关于汉字的首拼查询
来源:互联网 发布:jsp获取form表单数据 编辑:程序博客网 时间:2024/04/27 02:18
这是一个获取指定汉字的拼音索引字母的算法,哪位高手能指点一二,不葚感激啊!!!!
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[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;
- 关于汉字的首拼查询
- 得到汉字的首拼
- 汉字首拼实现
- Android模糊查询(首字母、简拼、全拼,汉字)
- 一个Delphi超简单的取汉字首拼函数
- 【函数分享】快速生成汉字的首拼字母【经典】
- JS中获取汉字的简拼、全拼
- VFP中取得汉字的简拼或全拼
- pinyin4j获取汉字正确的全拼和简拼
- Java获取汉字全拼和首拼
- Java获取汉字全拼和首拼
- js 获取汉字首拼和全拼和拼音
- Java获取汉字全拼和首拼
- js 获取汉字首拼和全拼和拼音
- php汉字转成对应的全拼
- 获取汉字的首字母和全拼
- Delphi 获取汉字的拼音简拼
- php汉字转成对应的全拼
- 利用批处理文件创建数据库和卸载数据库
- 撕裂寂寞
- 雨中一盒冰淇淋
- 爱情是一部忧伤的乐曲
- 2005年6月5日的开始
- 关于汉字的首拼查询
- 上海应届毕业生起薪调查报告
- 常见.Net 英文专业词汇收集
- 设计模式之Singleton模式
- Indescribable night 非常好听
- 用WebService构建简单的二进制流Mp3下载服务
- 魔方和软件公司招人的故事
- Did You Know?
- 序列化反序列化对象XML文件写入Sample,简单但是有代表性