Delphi XE StrPas 遇到的问题

本文整理自网络，侵删。

 
Delphi XE里的StrPas要注意哦
废话不多说了，直接上例子解说：

procedure TForm1.Button1Click(Sender: TObject);
var
  aa: array[0..1]of AnsiChar;
  bb1: string;
begin
  aa[0] := AnsiChar('1');
  aa[1] := AnsiChar('2');

  bb1 := StrPas(aa);
  ShowMessage(bb1);    //这里显示不正确
end;

 

 

procedure TForm1.Button1Click(Sender: TObject);
var
  aa: array[0..2]of AnsiChar;
  bb1: string;
begin
  aa[0] := AnsiChar('1');
  aa[1] := AnsiChar('2');

  bb1 := StrPas(aa);
  ShowMessage(bb1);   //这就正确了
end;

为什么呢？？  没时间深入研究了，估计是StrPas的Bug。
 

相关阅读 >>

Delphi 双进程监控保护

Delphi android调用授权管理打开通知监听服务

Delphi 写log的代码(按日期)

Delphi remobjects，您值得拥有

Delphi 系统服务运行桌面用户指定程序

Delphi 取文件目录下所有文件名和文件目录名

Delphi 调用外部 dll 中的函数(2. 晚绑定)

Delphi 2009 泛型容器单元(generics.collections)[2]: tqueue<t>

Delphi 配置驱动程序（firedac）

Delphi 编写服务程序的几点总结

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

转载请注明出处：木庄网络博客 » Delphi XE StrPas 遇到的问题