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;