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撰写并发布
相关文档：
在Delphi中,Inifiles单元中有一个TStringHash的类，不过它的Value仅支持Integer(其实也不是问题，有其它类型可以将变量变为Pointer)，有点不舒服，今天没事做就把它替换为variant了，其中Key的名称大小写无关，就是为了加快开发速度！
使用Hashtable,查找和删除复杂度都是常数级别的!
type
PPHashItem = ^PHashItem;
......
在Delphi中，调用Showmessage后，如何使弹出的对话框在一秒钟后自动关闭，而不用手动去点确定
1:用timer控件的函数
procedure TForm1.Timer1Timer(Sender: TObject);
var
AHandle: THandle;
begin
AHandle := FindWindow('TMessageForm',
PChar(Application.Title));
if AHandle > 0 then
SendMessage( ......
技术交流,DH讲解. 今天进入这书第二章 钩子(HOOK).
先说说钩子是什么?
钩子其实就在你环境中加上一层过滤,在特殊情况下就触发钩子回调函数.
比如说我们安装了全局的键盘钩子,那么当我们按动键盘上面的键的时候,钩子的回调函数就会触发.
我们也能看到本来是直来直往的,结果现在中间安装了一层过滤,� ......
近来发现一个Delphi莫名其妙的bug，当使用SetOptionalParam时，不能使用一连串数字的字符串，如'101'，注意，是带引号的。在SaveToFile时，就会出现'Invalid field type'的异常，真是百思不得其解！连'001'这种串也不行，去掉引号，直接按数字赋值，则正常。
procedure TForm1.Button1Click(Sender: TObject);
var
......
今天心血来潮在自己的电脑上安装了mysql-5.1.41-win32和mysql-connector-odbc-5.1.6-win32。以前，我曾经尝试使用ＤＥＬＰＨＩ６去联接ＭＹＳＱＬ但是在网上找很多资料都不很好用；今天突然也想起这个问题就干起回来了。
１. 建立数据库
use mysql;
drop database myDB;
create database ......
