AI摘要

这篇文章介绍了一个Delphi函数,用于将汉字转换为拼音的首字母。函数通过检查汉字的Unicode编码值来确定对应的拼音首字母,并返回结果。代码中包含了多个case语句,覆盖了汉字编码的各个范围,并对应到不同的拼音首字母。如果汉字不在已知范围内,则返回0。
这篇文章介绍了一

function GetPYIndexChar( hzchar:string):char;
begin  //的到一个汉字的拼音头个字母
  case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of
    B0A1..B0A1..B0C4 : result := 'A';
    B0C5..B0C5..B2C0 : result := 'B';
    B2C1..B2C1..B4ED : result := 'C';
    B4EE..B4EE..B6E9 : result := 'D';
    B6EA..B6EA..B7A1 : result := 'E';
    B7A2..B7A2..B8C0 : result := 'F';
    B8C1..B8C1..B9FD : result := 'G';
    B9FE..B9FE..BBF6 : result := 'H';
    BBF7..BBF7..BFA5 : result := 'J';
    BFA6..BFA6..C0AB : result := 'K';
    C0AC..C0AC..C2E7 : result := 'L';
    C2E8..C2E8..C4C2 : result := 'M';
    C4C3..C4C3..C5B5 : result := 'N';
    C5B6..C5B6..C5BD : result := 'O';
    C5BE..C5BE..C6D9 : result := 'P';
    C6DA..C6DA..C8BA : result := 'Q';
    C8BB..C8BB..C8F5 : result := 'R';
    C8F6..C8F6..CBF9 : result := 'S';
    CBFA..CBFA..CDD9 : result := 'T';
    CDDA..CDDA..CEF3 : result := 'W';
    CEF4..CEF4..D188 : result := 'X';
    D1B9..D1B9..D4D0 : result := 'Y';
    D4D1..D4D1..D7F9 : result := 'Z';
  else
    result := char(0);
  end;
end;



最后修改:2010 年 05 月 30 日
点赞的人是最酷的