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.

另外有需要云服務器可以了解下創新互聯scvps.cn，海內外云服務器15元起步，三天無理由+7*72小時售后在線，公司持有idc許可證，提供“云服務器、裸金屬服務器、高防服務器、香港服務器、美國服務器、虛擬主機、免備案服務器”等云主機租用服務以及企業上云的綜合解決方案，具有“安全穩定、簡單易用、服務可用性高、性價比高”等特點與優勢，專為企業上云打造定制，能夠滿足用戶豐富、多元化的應用場景需求。

網站欄目：得到漢字拼音首字母-創新互聯
文章網址：http://m.jcarcd.cn/article/cesphj.html