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

来源:计算机等级考试    发布时间:2012-08-29    计算机等级考试视频    评论

  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年上半年全国计算机等级考试试题答案汇总

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;

② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。

最近更新

社区交流

考试问答