unit1.pas

取汉字全拼简拼,代码简单信息全面,十分好用

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

//取汉字的拼音首字母
function GetHzPYCap(const hzStr: string): string;
function GetHzPyCapEx(hzchar:string):char;  
//取汉字拼音全拼
function GetHzPYFull(const hzStr:String):String;

var
  Form1: TForm1;

implementation

{$R *.DFM}


//取汉字的拼音首字母
function GetHzPYCap(const hzStr: string): string;
const
  China_Code: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077),
  (2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593), (2594, 2786), (9999, 0000),
  (2787, 3105), (3106, 3211), (3212, 3471), (3472, 3634), (3635, 3722), (3723, 3729),
  (3730, 3857), (3858, 4026), (4027, 4085), (4086, 4389), (4390, 4557), (9999, 0000),
  (9999, 0000), (4558, 4683), (4684, 4924), (4925, 5248), (5249, 5589));
var
  i, j, OrdHz: Integer;
begin
  i := 1;
  while i <= Length(hzStr) do
  begin
    if (hzStr[i] >= #160) and (hzStr[i + 1] >= #160) then
    begin
      OrdHz := (Ord(hzStr[i]) - 160) * 100 + Ord(hzStr[i + 1]) - 160;
      for j := 0 to 25 do
      begin
        if (OrdHz >= China_Code[j][0]) and (OrdHz <= China_Code[j][1]) then
        begin
          Result := Result + Char(Byte('A') + j);
          Break;
        end;
      end;
      Inc(i);
    end;// else Result := Result + AHzStr[i];
    Inc(i);
  end;
end;


function   GetHzPyCapEx(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';   
    $B9C1..$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';   
    $D189..$D4D0   :   result:='Y';   
    $D4D1..$D7F9   :   result:='Z';   
  else   
    result:=char(0);   
  end;
end;


//取汉字拼音全拼
function GetHzPYFull(const hzStr:String):String;
  Const PYCode : Array[1..396] of String = (
               'a','ai','an','ang','ao','ba','bai','ban','bang','bao','bei','ben','beng','bi','bian','biao','bie','bin','bing','bo',
               'bu',
               'ca',
               'cai',
               'can',    
               'cang',   
               'cao',    
               'ce',     
               'ceng',   
               'cha',    
               'chai',   
               'chan',   
               'chang',  
               'chao',   
               'che',    
               'chen',   
               'cheng',  
               'chi',    
               'chong',  
               'chou',   
               'chu',    
               'chuai',  
               'chuan',  
               'chuang', 
               'chui',   
               'chun',   
               'chuo',   
               'ci',     
               'cong',   
               'cou',    
               'cu',     
               'cuan',   
               'cui',    
               'cun',    
               'cuo',    
               'da',     
               'dai',    
               'dan',    
               'dang',   
               'dao',    
               'de',     
               'deng',   
               'di',     
               'dian',   
               'diao',   
               'die',    
               'ding',   
               'diu',    
               'dong',   
               'dou',    
               'du',     
               'duan',   
               'dui',    
               'dun',    
               'duo',    
               'e',      
               'en',     
               'er',     
               'fa',     
               'fan',    
               'fang',   
               'fei',    
               'fen',    
               'feng',   
               'fo',     
               'fou',    
               'fu',     
               'ga',     
               'gai',    
               'gan',    
               'gang',   
               'gao',    
               'ge',     
               'gei',    
               'gen',    
               'geng',   
               'gong',   
               'gou',    
               'gu',     
               'gua',    
               'guai',   
               'guan',   
               'guang',  
               'gui',    
               'gun',    
               'guo',    
               'ha',     
               'hai',    
               'han',    
               'hang',   
               'hao',    
               'he',     
               'hei',    
               'hen',    
               'heng',   
               'hong',   
               'hou',    
               'hu',     
               'hua',    
               'huai',   
               'huan',   
               'huang',  
               'hui',    
               'hun',    
               'huo',    
               'ji',     
               'jia',    
               'jian',   
               'jiang',  
               'jiao',   
               'jie',    
               'jin',    
               'jing',   
               'jiong',  
               'jiu',    
               'ju',     
               'juan',   
               'jue',    
               'jun',    
               'ka',     
               'kai',    
               'kan',    
               'kang',   
               'kao',    
               'ke',     
               'ken',    
               'keng',   
               'kong',   
               'kou',    
               'ku',     
               'kua',    
               'kuai',   
               'kuan',   
               'kuang',  
               'kui',    
               'kun',    
               'kuo',    
               'la',     
               'lai',    
               'lan',    
               'lang',   
               'lao',    
               'le',     
               'lei',    
               'leng',   
               'li',     
               'lia',    
               'lian',   
               'liang',  
               'liao',   
               'lie',    
               'lin',    
               'ling',   
               'liu',    
               'long',   
               'lou',    
               'lu',     
               'lv',     
               'luan',   
               'lue',    
               'lun',    
               'luo',    
               'ma',     
               'mai',    
               'man',    
               'mang',   
               'mao',    
               'me',     
               'mei',    
               'men',    
               'meng',   
               'mi',     
               'mian',   
               'miao',   
               'mie',    
               'min',    
               'ming',   
               'miu',    
               'mo',     
               'mou',    
               'mu',     
               'na',     
               'nai',    
               'nan',    
               'nang',   
               'nao',    
               'ne',     
               'nei',    
               'nen',    
               'neng',   
               'ni',     
               'nian',   
               'niang',  
               'niao',   
               'nie',    
               'nin',    
               'ning',   
               'niu',    
               'nong',   
               'nu',     
               'nv',     
               'nuan',   
               'nue',    
               'nuo',    
               'o',      
               'ou',     
               'pa',     
               'pai',    
               'pan',    
               'pang',   
               'pao',    
               'pei',    
               'pen',    
               'peng',   
               'pi',     
               'pian',   
               'piao',   
               'pie',    
               'pin',    
               'ping',   
               'po',     
               'pu',     
               'qi',     
               'qia',    
               'qian',   
               'qiang',  
               'qiao',   
               'qie',    
               'qin',    
               'qing',   
               'qiong',  
               'qiu',    
               'qu',     
               'quan',   
               'que',    
               'qun',    
               'ran',    
               'rang',   
               'rao',    
               're',     
               'ren',    
               'reng',   
               'ri',     
               'rong',   
               'rou',    
               'ru',     
               'ruan',   
               'rui',    
               'run',    
               'ruo',    
               'sa',     
               'sai',    
               'san',    
               'sang',   
               'sao',    
               'se',     
               'sen',    
               'seng',   
               'sha',    
               'shai',   
               'shan',   
               'shang',  
               'shao',   
               'she',    
               'shen',   
               'sheng',  
               'shi',    
               'shou',   
               'shu',    
               'shua',   
               'shuai',  
               'shuan',  
               'shuang', 
               'shui',   
               'shun',   
               'shuo',   
               'si',     
               'song',   
               'sou',    
               'su',     
               'suan',   
               'sui',    
               'sun',    
               'suo',    
               'ta',     
               'tai',    
               'tan',    
               'tang',   
               'tao',    
               'te',     
               'teng',   
               'ti',     
               'tian',   
               'tiao',   
               'tie',    
               'ting',   
               'tong',   
               'tou',    
               'tu',     
               'tuan',   
               'tui',    
               'tun',    
               'tuo',    
               'wa',     
               'wai',    
               'wan',    
               'wang',   
               'wei',    
               'wen',    
               'weng',   
               'wo',     
               'wu',     
               'xi',     
               'xia',    
               'xian',   
               'xiang',  
               'xiao',   
               'xie',    
               'xin',    
               'xing',   
               'xiong',  
               'xiu',    
               'xu',     
               'xuan',   
               'xue',    
               'xun',    
               'ya',     
               'yan',    
               'yang',   
               'yao',    
               'ye',     
               'yi',     
               'yin',    
               'ying',   
               'yo',     
               'yong',   
               'you',    
               'yu',     
               'yuan',   
               'yue',    
               'yun',    
               'za',     
               'zai',    
               'zan',    
               'zang',   
               'zao',    
               'ze',     
               'zei',    
               'zen',    
               'zeng',   
               'zha',    
               'zhai',   
               'zhan',   
               'zhang',  
               'zhao',   
               'zhe',    
               'zhen',   
               'zheng',  
               'zhi',