得到汉字拼音首字母

function py(x: AnsiString): ansichar;
begin
  case word(x[1]) shl 8 +word(x[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:=ansichar(32);
  end;
end;

 function getpy(x:string):string;
 var
  i:integer;
  hp:string;
  atext:string;
begin
  result :='';
  atext := '';
  for I := 1 to Length(x) do
  begin
    atext := atext + copy(x,i,1) + ' ';
  end;
  for i:=1 to (length(atext) div 2) do
  begin
     hp:=copy(atext,i*2-1,2);
     result:=result+py(hp);
  end;
end;

end.

本文转自鹅倌51CTO博客，原文链接：http://blog.51cto.com/kaixinbuliao/1775611 ，如需转载请自行联系原作者