多个字符串变量真的可以引用相同的数据吗？

发布时间：2020-12-15 09:41:29 所属栏目：大数据来源：网络整理

导读：根据互联网上的信息,我发现了以下两个变量指向内存中的同一个地方. 任何人都可以提出一个代码示例来证明实际上它是真的(例如,通过更改第一个变量中的一个字母并看到这个变化在第二个变量中可见)？ procedure TForm1.Button1Click(Sender: TObject);var a,b:

根据互联网上的信息,我发现了以下两个变量
指向内存中的同一个地方.

任何人都可以提出一个代码示例来证明实际上它是真的(例如,通过更改第一个变量中的一个字母并看到这个变化在第二个变量中可见)？

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b: String;
begin
  a := 'Test';
  b := a;

  showmessage (a);
  showmessage (b);
end;

解决方法

var
  a,b: string;
begin
  a := 'Test';
  a := a + '!'; // added after Rob's comment below,// makes sure a points to an allocation on the heap
  b := a;
  PChar(b)[3] := 'T';
  ShowMessage(a); //--> TesT!
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!