function TFrm_szxtxx.getPY(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(32);
end;
end;
GetPY获取汉字拼音首字母
最新推荐文章于 2024-09-01 08:42:58 发布