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 xe10对json的解析应用

Delphi2010获取鼠标指向窗口的位置及鼠标在窗口内的相对位置坐标

Delphi 获取系统启动文件夹路径

Delphi 中文大写日期转换函数

Delphi idhttp多线程下载

Delphi 与 xml 示例（直接利用ixmldocument）

Delphi 带参数的 exit

Delphi释放内存一般这么写

Delphi 将被其他窗体遮住的窗体弹到最前面

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

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