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如何检测form的移动和调整尺寸事件

Delphi vcl 鼠标左键长按功能的实现

Delphi checklistbox 用法

download 和 http downloader 源码

Delphi 将string 转为 array of ansichar

Delphi 使用tnethttprequest / tnethttpclient访问web服务器

Delphi 控制窗口显示隐藏

如何在Delphi中禁用关于“返回值...可能未定义”的警告?

Delphi判断字符串是否是数字、字母、大小写字母

Delphi 用image 画图

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



打赏

取消

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

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

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

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

评论

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