delphi原型模式

Question

我想知道，Delphi中的RTTI中是否有任何与MemberwiseClone在C＃中执行相同的操作，以实现原型模式的简单实现。 我看到了这种模式的一些Delphi实现，其中创建了一个新对象（TMyObject.Create），它的属性分配了来自原型对象的值。我可能是错的，但如果我们用相同的基本方式创建对象，我不会看到模式的好处。

谢谢。

Answer 1

没有内置任何东西可以为您执行深层克隆。我相信你可以根据新的RTTI编写一个深层克隆，但我认为这是一个不重要的工作量。

如果您正在处理足够简单的类型，它会正常工作，但您可能很容易遇到严重的挑战。例如，把我的头顶部：

• 对象的一些群体需要按照特定的顺序被创建。
• 某个类的某些成员不应该被克隆，例如，参考计数。你如何识别RTTI？
• 你如何处理单身？
• 需要设置什么外在引用？假设你克隆了一个通常由工厂创建的对象。如果该工厂对其创建的对象持有引用，那么背后可能会破坏您的设计。

你可以通过定义使用RTTI简单的类型，然后你必须覆盖它的任何东西更复杂的一个基本Clone()方法实现的原型模式。虽然个人，我会从TPersistent继承，并根据Assign我Clone()方法。

Answer 2

我认为你正在寻找一些与此类似：http://code.google.com/p/delphilhlplib/source/browse/trunk/Library/src/Extensions/DeHL.Cloning.pas

它只会在D2010工作及以上（需要扩展RTTI）。

Answer 3

Object.MemberwiseClone Method使浅该对象的副本遵循一些非常简单的规则，并利用.NET垃圾收集器的工作原理。

• 参考文件被简单复制。这包括任何object的字符串和引用。
• 值类型比特复制（相同的克隆。制造）。

有关值类型的部分可以很容易地用Delphi复制。使用Delphi复制引用类型的行为，虽然在技术上很简单，但不会提供预期的结果：Delphi代码预计会创建它的对象，并使用owner-owned范例来确保发生。通常的模式是从析构函数中释放由拥有者对象创建的对象。如果您制作对象的Shalow-copy，则会导致失败。这里有一个例子：

• 对象A拥有一个参考对象B.
• 我们创建对象C的对象A.对象的浅表副本C现在包含一个参考对象B.
• 我们免费对象A：A.Free;
• 我们免费对象B：B.Free; - 这会自动调用B.Free，但不幸的是，当我们释放A B已经被释放！

我们可以尝试deep-copy，大卫建议，但提出了一些同样的难题：

• 并非所有对象都应该被复制，例如因为它们封装到现实世界的资源的引用（例如：TFileStream）。
• 某些其他对象不能被深度复制，因为它们在单例中。而且没有通用的方式来表达“这个对象是一个单身人士，做一个简单的参考副本，不要做一个深层复制”。例如：我们是否复制Application？
• 如果你做了一个深层次的副本，你可能有循环引用，你需要照顾这些。这不是微不足道的，并且您从集合中的项目开始复制，您可能会发现自己回到集合的父项，即：不完全是预期的结果。
• 不分青红皂白的深层应对可能会占用意想不到的内存量并导致意外的内存泄漏。再次考虑收集 - >项目 - >复制项目示例，最终得到“项目”的副本，但是由于意外的反向链接，整个集合被复制。

把这一切放在一起，我们只能得出一个结论：我们不能有一个通用的，德尔福相当于MemberwiseClone。我们可以通过简单的交互来获得简单对象的部分外观，但这几乎没有吸引力！

Answer 4

我发布了一个稍微通用的component cloning回答，虽然它不等于MemberWiseClone，但可能有用。它在Delphi中的工作早在D5，我相信，并且我相信它在D2007中起作用。

Answer 5

有一种方法可以在Delphi中执行对象的深拷贝（克隆）。它适用于最新版本的Delphi（2010及更高版本）。看到下面的代码片断...它实际上很简单，你不需要外部库。你可以在这里找到更多的信息：http://www.yanniel.info/2012/02/deep-copy-clone-object-delphi.html

function DeepCopy(aValue: TObject): TObject; 
var 
    MarshalObj: TJSONMarshal; 
    UnMarshalObj: TJSONUnMarshal; 
    JSONValue: TJSONValue; 
begin 
    Result:= nil; 
    MarshalObj := TJSONMarshal.Create; 
    UnMarshalObj := TJSONUnMarshal.Create; 
    try 
    JSONValue := MarshalObj.Marshal(aValue); 
    try 
     if Assigned(JSONValue) then 
     Result:= UnMarshalObj.Unmarshal(JSONValue); 
    finally 
     JSONValue.Free; 
    end; 
    finally 
    MarshalObj.Free; 
    UnMarshalObj.Free; 
    end; 
end;