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 httpclient async异步获取网页代码

Delphi xe 横屏竖屏的管理

Delphi is 与 as 运算符举例

Delphi 判断当前网络连接方式

Delphi strutils.dupestring - 反复字符串

Delphi access 从数据库里随机选择一行

dekphi qq自动发消息源码

Delphi 根据窗口类判断程序是否运行

Delphi定位注册表指定键位

Delphi 根据开始和结束符取得中间字符串

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



打赏

取消

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

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

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

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

评论

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