本文整理自网络，侵删。
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)
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>
