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 dbgrid去除滚动条

Delphi richedit选中文字右键菜单的实现

Delphi directx截图 截本窗口的图

Delphi cpu窗口的扩展学习

Delphi 字符串转换ascii码10进制

Delphi http post json示例

Delphi 采集功能代码getstr

github上通过星级评估排名前10的最受欢迎的开源Delphi项目

delph记录输出日志

Delphi ttabcontrol在tabitem添加关闭按钮

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

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