4

这是我的示例代码：

type
  PData = ^TData;
  TData = record
    str : string;
    strlist : TStringList;
  end;

var
  P1 : PData;
  P2 : PData;
  P3 : PData;
  P4 : PData;
begin
  New(P1);
  New(P2);
  P1.str := 'string';
  // copy
  P2^ := P1^;
  P2.str := P2.str + '_copy';
  Memo1.Lines.Add('This is P1:' + P1.str); //This is P1:string
  Memo1.Lines.Add('This is P2:' + P2.str); //This is P2:string_copy

  // so change P2'Data didn't change P1's Data
  // but this :
  New(P3);
  New(P4);
  P3.str := 'string';
  P3.strlist := TStringList.Create;
  P3.strlist.Add('one line');
  // copy
  P4^ := P3^;
  // just add P4's data
  P4.strlist.Add('two line');
  Memo1.Lines.Add('P3''s Data:' + IntToStr(P3.strlist.Count));
  Memo1.Lines.Add(P3.strlist.Text);
  Memo1.Lines.Add('P4''s Data:' + IntToStr(P4.strlist.Count));
  Memo1.Lines.Add(P4.strlist.Text);
  {
   P3's Data:2
   one line
   two line

   P4's Data:2
   one line
   two line
  }
end;

为什么当用 a 复制点数据时class，它会改变原始数据，但是当string使用数据时P1^ := P2^复制点数据不会改变原始数据。

4

4 回答 4

5

String 有点像 Delphi 管理的特殊实体。特别是，Delphi 使用一种Copy-On-Write策略，即当你这样做时P2^ := P1^;，P1.str它们P2.str都指向同一个字符串对象。Delphi 通过内部引用计数跟踪存在多少对字符串对象的引用。

一旦您执行类似的写入操作P2.str := P2.str + '_copy'，Delphi 就会识别出该字符串已多次使用，并为 P2.str 创建一个自己的副本。这一切都发生在后台，通常你不会注意到这一点。

另一方面，P3.strlist 和 P4.strlist 是普通指针，总是指向同一个对象。这里没有任何自动复制。

于 2013-04-02T12:49:11.147 回答
3

字符串是按需复制的。这意味着当您更改复制的字符串时，它将创建已更改字符串的新实例。为简单起见，您可以假设字符串副本是字符串数据的副本。

当您分配一个类实例时，只会复制指向该实例的指针，而不是实例本身。复制后仍然只有一个类实例。您可以从您的代码中看到这一点，因为您的代码中只有一个 TStringList.Create。

于 2013-04-02T12:47:11.433 回答
2

似乎delphi制作了对象的浅拷贝。浅拷贝意味着所有本机数据类型都被复制，但对象仅通过引用复制。

因此，在复制分配之后，两个对象都持有对同一strlist对象的引用。

于 2013-04-02T12:43:53.277 回答
1

您将所有值从 复制P3到P4。

但 strlst它只是对 Object 的引用，TStringList并且此引用也被复制，因此P4.strlst指向与P3.strlst

于 2013-04-02T12:46:28.607 回答