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

 

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;