得到汉字字符窜的拼音转换

时间:2010-03-07 14:01:11  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:while I <= Length(hzchars) do  begin    PY := Copy(hzchars, I , 1);    if PY >= Chr(128) then    begin      Inc(I);      PY := PY + Copy(hzchars, I , 1);     ...
  正文:// 得到汉字字符窜的拼音转换 如你好--NH
function PYConvert(hzchars:string): String;
var
I: Integer;
PY: string;
s: string;
begin
  s := ‘‘ ;
  I := 1;
  while I <= Length(hzchars) do
  begin
    PY := Copy(hzchars, I , 1);
    if PY >= Chr(128) then
    begin
      Inc(I);
      PY := PY + Copy(hzchars, I , 1);
      s := s + GetPYIndexChar(PY);
    end
    else
    s := s + PY;
    Inc(I);
  end;
  result := s;
end;
// 获取指定汉字的拼音索引字母,如:“汉”的索引字母是“H”
function GetPYIndexChar( 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‘;
  $D1B9..$D4D0 : result := ‘Y‘;
  $D4D1..$D7F9 : result := ‘Z‘;
  else
  result := char(32);
end;
end;

"得到汉字字符窜的拼音转换"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/13110.html


关键字:

关于《得到汉字字符窜的拼音转换》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td