Porównanie głębokich obiektów Delphi

Question

Poszukuję biblioteki delphi lub fragmentu kodu, który wykona dla mnie głębokie porównanie obiektów, najlepiej w wersji 2010 opartej na RTTI, ponieważ moje obiekty nie dziedziczą z TComponent. Czy ktoś wie, gdzie mogę go znaleźć, rozwijam framework testowy w DUnit i potrzebuję czegoś solidnego, które wskaże dokładnie, które pole powoduje problemy (porównanie serializacji pozostawia nieco niejasne).

Cheers,

Barry

Answer 1

Sort to rozwiązany, zaimplementowany jako pomocnik klasy dla TObject, więc może być używany wszędzie, jeśli ludzie tego chcą. D2010 i nowszy z powodu RTTI, ale możesz go przekonwertować, aby używał oryginalnych rzeczy RTTI.

kod poniżej może być wadliwy jak pierwotnie mój był dla DUnit i miał wiele kontroli w nim zamiast zmieniając wynik i nie obsługuje TCollections lub ładunek innych szczególnych przypadkach, ale może być dostosowany do tego za pomocą if -elseif-następnie przełącz się w środku.

Jeśli masz jakieś sugestie i uzupełnienia, nie wahaj się, aby je skomentować, więc mogę dodać je do tego, aby inni mogli z tego korzystać.

Baw kodowania

Barry

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

Rozważ użycie OmniXML persistence.

Dla różnicowania XML, napisałem narzędzie, używając OmniXML, które zrobi XML diff, i istnieje wiele narzędzi porównawczych XML tam.

Użyłem OmniXML do zrobienia narzędzia różnicującego XML dla dokładnie tego celu, i zadziałało to dla mnie. Niestety to narzędzie zawiera wiele rzeczy związanych z domeną i jest zamknięte-źródło i należy do byłego pracodawcy, więc nie mogę opublikować kodu.

Moje narzędzie Porównanie miał prosty algorytm:

1. mecz i zbudować mapę powiązań Object1-> object2 węzłów między węzłami dopasowanie XML.
2. Sortowanie każdego węzła na kluczu podstawowym (wiedza specyficzna dla danej domeny) sprawia, że ​​kolejność XML jest nieistotna. Ponieważ nie tylko porównujesz TComponents z Names, musisz znaleźć sposób na ustalenie każdej tożsamości obiektów, jeśli chcesz móc je porównać.
3. Elementy raportu w formacie XML doc 1, które nie są w xml doc 2.
4. Elementy raportu w formacie XML doc 2, które nie są w xml doc 1.
5. Elementy raportu w formacie XML doc 1 z podkluczach lub atrybutów inny niż xml doc2.
6. Narzędzie wizualne wykorzystało dwie kontrolki Virtual Tree View i działało bardzo podobnie do KDIFF3, ale jako widok drzewa.