您现在的位置:首页 >> 基础算法 >> window基础 >> 内容

Delphi将输入汉字自动产生拼音简码

时间:2011/9/3 15:35:21 点击:

  核心提示:function getPY(hzchar:string):char;begin case word(hzchar[1])shl 8+word(hzchar[2]) of $B0a1..$B0c4:r...

function getPY(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';
    $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';
    $D189..$D4D0:result:='Y';
    $D4D1..$D7F9:result:='Z';
    ELSE
      RESULT:=char(32);
  end;
end;


procedure TForm1.Edit1Change(Sender: TObject);
var
  i:integer;
  hz:string;
begin
  edit2.Text:='';
  for i:=1 to length(edit1.text) div 2 do
  begin
    hz:=copy(edit1.Text,i*2-1,2);
    edit2.Text:=edit2.Text+getpy(hz);
  end;
end;

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号