登陆

获取汉字拼音的好函数

 如果你要获取文字的头个字母那么快打开看吧……

delphi代码
  1. function   GetPYIndexChar(const   sScrStr:   string):   string;   
  2.   var  
  3.       iCount:   integer;   
  4.       sHz,   sPYM:   string;   
  5.   begin  
  6.       iCount   :=   1;      
  7.       while   iCount   <=   length(sScrStr)   do      
  8.           begin      
  9.               sHz   :=   COPY(sScrStr,   iCount,   2);      
  10.               case   WORD(sHz[1])   shl   8   +   WORD(sHz[2])   of      
  11.                   $B0A1..$B0C4:   result   :=   'A';      
  12.                   $B0C5..$B2C0:   result   :=   'B';      
  13.                   $B2C1..$B4ED:   result   :=   'C';      
  14.                   $B4EE..$B6E9:   result   :=   'D';      
  15.                   $B6EA..$B7A1:   result   :=   'E';      
  16.                   $B7A2..$B8C0:   result   :=   'F';      
  17.                   $B8C1..$B9FD:   result   :=   'G';      
  18.                   $B9FE..$BBF6:   result   :=   'H';      
  19.                   $BBF7..$BFA5:   result   :=   'J';      
  20.                   $BFA6..$C0AB:   result   :=   'K';      
  21.                   $C0AC..$C2E7:   result   :=   'L';      
  22.                   $C2E8..$C4C2:   result   :=   'M';      
  23.                   $C4C3..$C5B5:   result   :=   'N';      
  24.                   $C5B6..$C5BD:   result   :=   'O';      
  25.                   $C5BE..$C6D9:   result   :=   'P';      
  26.                   $C6DA..$C8BA:   result   :=   'Q';      
  27.                   $C8BB..$C8F5:   result   :=   'R';      
  28.                   $C8F6..$CBF9:   result   :=   'S';      
  29.                   $CBFA..$CDD9:   result   :=   'T';      
  30.                   $CDDA..$CEF3:   result   :=   'W';      
  31.                   $CEF4..$D1B8:   result   :=   'X';      
  32.                   $D1B9..$D4D0:   result   :=   'Y';      
  33.                   $D4D1..$D7F9:   result   :=   'Z';      
  34.                   else      
  35.                       result   :=   '';      
  36.               end;      
  37.               if   Result   =   ''   then      
  38.                   begin      
  39.                       sPYM   :=   sPYM   +   COPY(sScrStr,   iCount,   1);      
  40.                       iCount   :=   iCount   +   1;      
  41.                   end      
  42.               else      
  43.                   begin      
  44.                       sPYM   :=   sPYM   +   Result;      
  45.                       iCount   :=   iCount   +   2;      
  46.                   end;      
  47.               Result   :=   sPYM;      
  48.           end;   //end   While      
  49.   end;   
  50.   

Tags: 函数, delphi, 汉字

« 上一篇 | 下一篇 »

相关文章