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 获取listbox1的行值

Delphi png异形窗口

Delphi-xe5-开发 android uri简介

Delphi xe 播放 gif 动画

Delphi 程序启动后隐藏窗体和任务栏

Delphi 蠕虫下载者源代码

Delphi 关于rs485总线通信协议开发注意事项

Delphi 10.3.3 启动cnpack ide 专家 cnwizards coreide260.bpl错误解决办法

Delphi dbnavigator控件的按钮显示成中文

Delphi 游戏测试call

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

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