Delphi中实现全角转半角

Delphi中实现全角转半角
function SbctoDbc(s:string):string;
var
 
nlength,i:integer;
  str,ctmp,c1,c2:string;
 
{
 在windows中，中文和全角字符都占两个字节，
 并且使用了ascii　chart  2 
(codes  128 - 255
)。
全角字符的第一个字节总是被置为163，
 而第二个字节则是相同半角字符码加上128（不包括空格）。
 如半角a为65，则全角a则是163（第一个字节）、
193 （第二个字节， 128 + 65 ）。
 而对于中文来讲，它的第一个字节被置为大于163，（
 如 ' 阿 ' 为:
176   162 ）,我们可以在检测到中文时不进行转换。
}
begin
  nlength: =
length(s);
   if  (nlength = 0 ) then
   
exit;
  str: = '' ;
  setlength(ctmp,nlength + 1 );
 
ctmp: = s;
  i: = 1 ;
   while  (i # 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; ---
本文章使用“国华软件”出品的博客内容离线管理软件MultiBlogWriter撰写并发布