计算机二级DELPHI函数:delphi汉字首字母索引函数计算机二级考试

文章作者 100test 发表时间 2009:05:07 18:06:48
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
　　很好，很实用的一个东西，呵呵。
　　Function TForm1()function TForm1.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.

　　2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

　　2009年全国计算机等级考试报名信息汇总

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试-大纲

　　2009年上半年全国计算机二级考试试题及答案

　　2009年上半年全国计算机等级考试试题答案汇总