Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:基础知识    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  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 <= 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;
 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站