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

Delphi中实现全角转半角

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

  核心提示:全角字符的第一个字节总是被置为163,而第二个字节则是相同半角字符码加上128(不包括空格)。如半角a为65,则全角a则是163(第一个字节)、 193 (第二个字节, 128 + 65 )。而对于中...
全角字符的第一个字节总是被置为163,
 而第二个字节则是相同半角字符码加上128(不包括空格)。
 如半角a为65,则全角a则是163(第一个字节)、 193 (第二个字节, 128 + 65 )。
 而对于中文来讲,它的第一个字节被置为大于163,(
 如 ' 阿 ' 为: 176   162 ),我们可以在检测到中文时不进行转换。
function SbctoDbc(s:string):string;
var
  nlength,i:integer;
  str,ctmp,c1,c2:string;
begin
  nlength: = length(s);
   if  (nlength = 0 ) then
    exit;
  str: = '' ;
  setlength(ctmp,nlength + 1 );
  ctmp: = s;
  i: = 1 ;
   while  (i <= nlength)  do
  begin
    c1: = ctmp[i];
    c2: = ctmp[i + 1 ];
     if  (c1 = # 163 ) then   // 如果是全角字符
     begin
      str: = str + chr(ord(c2[ 1 ]) - 128 );
      inc(i, 2 );
       continue ;
    end;
     if  (c1 > # 163 ) then   // 如果是汉字
     begin
      str: = str + c1;
      str: = str + c2;
      inc(i, 2 );
       continue ;
    end;
     if  (c1 = # 161 ) and (c2 = # 161 ) then   // 如果是全角空格
     begin
      str: = str + '   ' ;
      inc(i, 2 );
       continue ;
    end;
    str: = str + c1;
    inc(i);
  end;
  result: = str;
end; 

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