delphi – 为什么这个副本数据出错了？

概述这是我的示例代码： 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 这是我的示例代码：

@H_419_8@

@H_419_8@

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;

为什么当用类复制点数据时,它会改变原始数据,但是当数据是字符串时使用P1 ^：= P2 ^复制点数据不会改变原始数据.@H_419_8@解决方法 String有点像Delphi管理的特殊实体.特别是,Delphi使用copy-On-Write策略,即当你执行P2 ^：= P1 ^;时,P1.str和P2.str都指向相同的字符串对象. Delphi通过内部引用计数跟踪对字符串对象的引用数量.

@H_419_8@

只要执行像P2.str：= P2.str’_copy’这样的写 *** 作,Delphi就会识别出该字符串被多次使用并为P2.str创建一个自己的副本.这一切都发生在后台,通常你没有注意到这一点.@H_419_8@

另一方面,P3.strList和P4.strList是普通指针,并且始终指向同一个对象.这里没有任何自动复制.@H_419_8@ 总结

以上是内存溢出为你收集整理的delphi – 为什么这个副本数据出错了？全部内容，希望文章能够帮你解决delphi – 为什么这个副本数据出错了？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。