pos、ansipos、fillchar在delphi2010中unicode的问题


本文整理自网络,侵删。

 今天研究了一下delphi2010的unicode,发现一大堆的转换问题,建议大家老项目还是别转换到2010版本上,否则出问题都不知道在哪里。新项目可以直接使用delphi2010工作。

在delphi2010中定义一个变量str,无论这个变量定义为string 还是 ansistring,pos和ansipos函数都将该变量str当做unicodestring类型处理,大家可要小心了。

procedure TForm2.Button1Click(Sender: TObject);
var
str: AnsiString;
begin
str := '中华人民共和国';
ShowMessage('长度:' + IntToStr(Length(str)));
ShowMessage('位置:' + IntToStr(AnsiPos('民', str))); // 换为pos还是返回4
end;

在delphi2010中fillchar中的char还是按字节来做的,可不是widechar类型,大家可要小心了

procedure TForm2.Button2Click(Sender: TObject);
var
Buf: array [0 .. 4] of Char;//这里delphi2010认为cha是2个字节
begin
FillChar(Buf, Length(Buf), #0);//如果使用Length(Buf)来填充,那就少填写了一些内容,大家可以设置断点来查看。正确应该用SizeOf(Buf)
ShowMessage('SizeOf:' + IntToStr(SizeOf(Buf)));
ShowMessage('Length:' + IntToStr(Length(Buf)));
end;

总之,感觉delphi2010还没有多细节还没做好,char应该是2个字节,有的函数还是还认为char是1个字节(例如fillchar)。如果项目要升级到2010,大家要注意很多地方

相关阅读 >>

Delphi系统默认语言与系统支持的语言列表

Delphi程序不受windows日期格式的影响

Delphi 判断时间是否是下午 dateutils.ispm

[Delphi]钩子(hook)机制的使用

Delphi 自定义消息拦截

Delphi 共享内存的应用

Delphi 如何按下esc键退出程序

Delphi 获取本地ip地址源码

tstringgrid 添加鼠标拖动功能

Delphi 进程隐藏的若干方法

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...