深度对象比较 Delphi

Question

在 Delphi 中寻找一种方法来为我进行深度对象比较，最好是基于 2010 RTTI，因为我的对象不是从 TComponent 继承的。我正在 DUnit 中开发一个测试框架，需要一些可靠的东西来准确指出哪个字段导致了问题（序列化比较让它有点模糊）。

Answer 1

我自己解决了这个问题，作为 TObject 的类助手实现，因此如果人们需要的话可以在任何地方使用。 D2010 及更高版本由于 RTTI，但您也许可以将其转换为使用原始 RTTI 内容。

下面的代码可能有错误，因为我最初是针对 DUnit 的，其中进行了大量检查而不是更改结果，并且不支持 TCollections 或大量其他特殊情况，但可以通过使用 if-elseif-then 进行调整中间切换。

如果您有任何建议和补充，请随时发表评论，以便我可以将它们添加到其中，以便其他人可以使用它。

祝

巴里编码愉快

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 持久性。

对于 XML 差异，我使用 OmniXML 编写了一个实用程序来执行 XML 差异，并且有许多 XML 比较工具。

我使用 OmniXML 制作了一个 XML 差异工具来实现这个目的，它对我来说非常有用。不幸的是，该工具包含许多特定于领域的内容，并且是闭源的，属于前雇主，因此我无法发布代码。

我的比较工具有一个简单的算法：

1. 匹配并构建匹配 XML 节点之间的 Object1->Object2 节点链接的映射。
2. 根据主键（特定于领域的知识）对每个节点进行排序，从而使 XML 顺序变得不重要。由于您不仅将 TComponent 与名称进行比较，因此如果您希望能够进行比较，您将需要找到一种方法来建立每个对象的标识。
3. 报告 xml 文档 1 中不在 xml 文档 2 中的项目。
4. 报告 xml 文档 2 中不在 xml 文档 1 中的项目。
5. 报告 xml 文档 1 中子项或属性与 xml doc2 不同的项目。
6. 可视化工具使用两个虚拟树视图控件，其工作方式与 KDIFF3 非常相似，但作为树视图。