获得汉字拼音首位字母的函数

Function TF_zct.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;