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 escape/unescape编码

Delphi 几种程序自杀的方法

Delphi从全路径中分离路径,有'\'

Delphi研究之驱动开发篇(二)--工具及环境搭建

Delphi richedit控件中插入图片bmp(bmp,文件),gif(文件)

Delphi {$pointermath on} 方便指针操作的编译指令

Delphi 移动客户端的路径的安全正确的写法

手动创建和部署一个classes.dex 查看更多关于 classes.dex 的文章 文件

Delphi 系统托盘 trayicon

Delphi 获取windows系统网卡mac地址

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



打赏

取消

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

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

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

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

评论

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