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撰写并发布
相关文档：
技术交流,DH讲解. 今天进入这书第二章 钩子(HOOK).
先说说钩子是什么?
钩子其实就在你环境中加上一层过滤,在特殊情况下就触发钩子回调函数.
比如说我们安装了全局的键盘钩子,那么当我们按动键盘上面的键的时候,钩子的回调函数就会触发.
我们也能看到本来是直来直往的,结果现在中间安装了一层过滤,� ......
具体要求：
1、计算机及相关专业专科以上学历，有2年以上的工作经验；
2、精通Delphi并有运用Delphi成功开发项目的经验；
3、熟悉网络开发，有控件开发经验者优先考虑；
4、熟悉软件工程，具有良好的开发习惯，能正确使用版本控制工具；
5、具有很强的团队合作和吃苦耐劳的精神，具有一丝不苟的工作作风和认真负责的 ......
当A D O开始处理数据后，应用程序必须等到A D O处理完毕之后才可以继续执行。但
是除了同步执行方式之外， A D O也提供了异步执行的方式，允许当A D O处理时，
应用程序仍然能够先继续执行。而当A D O处理数据完毕之后， A D O会以事件的方
式通知应用程序，此时应用程序可以再根据A D O执行的 ......
近来发现一个Delphi莫名其妙的bug，当使用SetOptionalParam时，不能使用一连串数字的字符串，如'101'，注意，是带引号的。在SaveToFile时，就会出现'Invalid field type'的异常，真是百思不得其解！连'001'这种串也不行，去掉引号，直接按数字赋值，则正常。
procedure TForm1.Button1Click(Sender: TObject);
var
......
