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;
一个好东东哦~~ Function TForm1()function TForm1.GetPYIndexChar( hzchar:string):char;begin //的到一个汉字的拼音头个字母 case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of $B0A1..$B0C4 : result := A; $B0C5..$B