AI摘要
function GetPYIndexChar( hzchar:string):char;
begin //的到一个汉字的拼音头个字母
case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of
B0C4 : result := 'A';
B2C0 : result := 'B';
B4ED : result := 'C';
B6E9 : result := 'D';
B7A1 : result := 'E';
B8C0 : result := 'F';
B9FD : result := 'G';
BBF6 : result := 'H';
BFA5 : result := 'J';
C0AB : result := 'K';
C2E7 : result := 'L';
C4C2 : result := 'M';
C5B5 : result := 'N';
C5BD : result := 'O';
C6D9 : result := 'P';
C8BA : result := 'Q';
C8F5 : result := 'R';
CBF9 : result := 'S';
CDD9 : result := 'T';
CEF3 : result := 'W';
D188 : result := 'X';
D4D0 : result := 'Y';
D7F9 : result := 'Z';
else
result := char(0);
end;
end;