delphi 2010 unicode

官方Delphi 学习QQ群： 682628230（三千人）

频道

delphi 2010 unicode

delphi 2010中默认的string char pchar都为wide双字节型的，若要使用以前的代码在delphi2010中顺利编译通过，得出正确结果，请修改为ansi 单字节型(string-ansistring char-pchar,pchar-pansichar)。

http://hi.baidu.com/zhxp/blog/item/3abbf03675dfa63b0a55a917.html

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

2009-12-01 22:32

今天研究了一下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，大家要注意很多地方

delphi2010 CopyFile 复制文件必须是string widestring

http://lzy3169421.blog.163.com/blog/static/113545277200993154752421/

delphi 2009-10-31 17:47 阅读103 评论0

字号：大中小小

var
surfile,decfile:string; //widestring
begin
surfile:='d:\du';
decfile:='d:\du_cl';
if CopyFile(pchar(surfile), pchar(decfile),false)=false then
begin
    MessageDlg('生成文件副本错误！', TMsgDlgType.mterror, [mbOK], 0);
    exit;
end
else
begin
    ShowMessage('ok');
end;
end;

这个复杂函数搞得好几个小时测试，后来另外测试才发现一个细节传入的参数不能是ansistring 否则就会失败。可能是2010里的缘故，默认的都是widestring 就是默认 string 实际也是widestring。如果参数类型设置是ansistring

参数的指针类型也要改

surfile,decfile:ansistring;

CopyFileA(pansichar(surfile), pansichar(decfile),false)

推荐分享

图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！

执行时间: 0.2478711605072 seconds