深度對象比較Delphi

Question

尋找一個delphi庫或代碼片段，將爲我做深度對象比較，最好是基於RTTI的，因爲我的對象不會從TComponent繼承。有誰知道我在哪裏可以找到一個，我正在開發一個測試框架在DUnit，並需要一些固體，它會指出究竟哪個字段導致問題（序列化比較離開它有點模糊）。

乾杯，

巴里

Answer 1

解決這個問題的種類，作爲TObject的類助手實現，所以如果人們需要它可以隨處使用。 D2010和以上，因爲RTTI，但你可能能夠將其轉換爲使用原始RTTI的東西。

下面的代碼可能是錯誤的，因爲我原來是用於DUnit的，它有很多檢查，而不是改變結果，不支持TCollections或其他特殊情況的負載，但可以通過使用if -elseif - 然後在中間切換。

如果您有任何建議和補充，請不要猶豫，以便我可以添加它，以便其他人可以使用它。

玩得開心編碼

巴里

unit TObjectHelpers; 

interface 
    uses classes, rtti; 

type 

TObjectHelpers = class Helper for TObject 
    function DeepEquals (const aObject : TObject) : boolean; 
end; 

implementation 

uses sysutils, typinfo; 

{ TObjectHelpers } 

function TObjectHelpers.DeepEquals(const aObject: TObject): boolean; 
var 
    c : TRttiContext; 
    t : TRttiType; 
    p : TRttiProperty; 
begin 

    result := true; 

    if self = aObject then 
    exit; // Equal as same pointer 

    if (self = nil) and (aObject = nil) then 
    exit; // equal as both non instanced 

    if (self = nil) and (aObject <> nil) then 
    begin 
    result := false; 
    exit; // one nil other non nil fail 
    end; 

    if (self <> nil) and (aObject = nil) then 
    begin 
    result := false; 
    exit; // one nil other non nil fail 
    end; 

    if self.ClassType <> aObject.ClassType then 
    begin 
    result := false; 
    exit; 
    end; 

    c := TRttiContext.Create; 
    try 
    t := c.GetType(aObject.ClassType); 

    for p in t.GetProperties do 
    begin 

     if ((p.GetValue(self).IsObject)) then 
     begin 

      if not TObject(p.GetValue(self).AsObject).DeepEquals(TObject(p.GetValue(aObject).AsObject)) then 
      begin 
     result := false; 
     exit; 
    end; 

    end 
    else if AnsiSameText(p.PropertyType.Name, 'DateTime') or AnsiSameText(p.PropertyType.Name, 'TDateTime') then 
    begin 

    if p.GetValue(self).AsExtended <> p.GetValue(aObject).AsExtended then 
    begin 
     result := false; 
     exit; 
    end; 

    end 
    else if AnsiSameText(p.PropertyType.Name, 'Boolean') then 
    begin 

    if p.GetValue(self).AsBoolean <> p.GetValue(aObject).AsBoolean then 
    begin 
     result := false; 
     exit; 
    end; 

    end 
    else if AnsiSameText(p.PropertyType.Name, 'Currency') then 
    begin 

    if p.GetValue(self).AsExtended <> p.GetValue(aObject).AsExtended then 
    begin 
     result := false; 
     exit; 
    end; 

    end 
    else if p.PropertyType.TypeKind = tkInteger then 
    begin 

    if p.GetValue(self).AsInteger <> p.GetValue(aObject).AsInteger then 
    begin 
     result := false; 
     exit; 
    end; 

    end 
    else if p.PropertyType.TypeKind = tkInt64 then 
    begin 

    if p.GetValue(self).AsInt64 <> p.GetValue(aObject).AsInt64 then 
    begin 
     result := false; 
     exit; 
    end; 

    end 
    else if p.PropertyType.TypeKind = tkEnumeration then 
    begin 

    if p.GetValue(self).AsOrdinal <> p.GetValue(aObject).AsOrdinal then 
    begin 
     result := false; 
     exit; 
    end; 

    end 
    else 
    begin 

    if p.GetValue(self).AsVariant <> p.GetValue(aObject).AsVariant then 
    begin 
     result := false; 
     exit; 
    end; 

    end; 

end; 

finally 
    c.Free; 
    end; 

end; 

end. 

Answer 2

考慮使用OmniXML persistence。

對於XML差異，我已經使用OmniXML編寫了一個實用程序，它將執行XML差異，並且有許多XML比較工具。

爲了達到這個目的，我使用了OmniXML來完成XML差異化工具，它對我來說非常好。不幸的是，該工具包含許多特定領域的東西，並且是封閉源代碼，屬於前僱主，因此我無法發佈代碼。

我比較工具有一個簡單的算法：

1. 匹配和建立地圖匹配的XML節點之間Object1->對象2節點的鏈接。
2. 對主鍵上的每個節點進行排序（領域特定知識），使得XML順序不重要。由於您不僅將TComponents與名稱進行比較，您需要找到一種方法來建立每個對象的身份，如果您希望能夠比較它。在XML文檔1
3. 報告項中沒有的XML文檔在XML文檔2 2.
4. 報告項中沒有的XML文檔在XML文檔11.
5. 報告項與子項或屬性比XML不同DOC2。
6. 可視化工具使用了兩個虛擬樹視圖控件，並且像KDIFF3一樣工作，但是作爲樹視圖。