是否可以使用 RTTI 以编程方式更改属性写入方法来创建对象感知控件？

Question

我有一个业务对象，我想更好地“连接”到我的用户界面。我已经看到了一些使对象具有数据感知能力的部分解决方案，但它们都涉及对我的业务对象的重大更改，包括额外的抽象层。

我一直在研究 Delphi 新版本中改进的 RTTI，它看起来非常有趣和有用。我想知道是否可以使用它以编程方式为所有属性注入新的写入方法。

其工作方式是，在构建表单时，我的 TEdit 后代将给出对对象属性的引用。然后，TEdit 将在该属性的属性中插入对其自身的引用（当然，在析构函数中删除自身或给予另一个引用）。 TEdit 还将确保属性的 write 方法被替换为在调用原始 write 方法后通知 TEdit 更改的方法。

这可行吗？最大的阻碍是注入新的写入方法是不可能的，因此是这个问题的标题。

派生属性也存在潜在问题，但应该可以找到解决方案。

Answer 1

您的问题已经使您的编程技能领先于我，因此我将添加如何处理此问题：

如果我要尝试编写类似的内容，我可能会从 TBusinessObject 中的每个字段开始使用 TList。该列表将用于指示当您需要推出更改时需要更新的内容。

因此，当创建 TEdit 时，它会将自身添加到与 TBusinessObject 中的一条数据关联的列表中。当 TBusinessObject 更新该数据时，它将遍历附加对象的列表。它会看到 TEdit，并且知道它是 TEdit，并将运行代码来更新 .Text。如果我附加了 TCaption，那么代码将更新 .Caption。

正如您所指出的，TEdit 需要告诉 TBusinessObject 其值何时更新。我想这是一个棘手的地方 - 您可以创建一个新的 TEdit 并添加一个 TList 来维护它在更改时应该通知谁。如果您使用 .Tag 来指示 TBusinessObject 中的字段号，则 OnChange （或任何事件）可以调用类似 TBusinessObject.FieldUpdate[TEdit.Tag, NewValue] 的内容，然后触发您的业务逻辑。反过来，这可能会使 TBusinessObject 更新其他字段，这些字段可能有自己的 TList 来更新字段。

防止循环更新需要您有一种在不触发事件的情况下更新控件的方法。对于我编写的一个程序，我有两种方法来更新控件：SetValue 和 ChangeValue。 SetValue 禁用了所有事件（OnChange、OnValidate），更新了控件的值，然后重新启用了事件。 ChangeValue 只是更改值并允许根据需要触发任何控件的事件。

可能有更巧妙的方法可以做到这一点，但希望这能给您带来思考。

Answer 2

可以使用 RTTI 以编程方式更改属性写入方法来创建对象感知控件吗？

不，这是不可能的。 RTTI 为您提供信息，但它不提供在运行时更改类型的能力。

最大的阻碍是注入新的写入方法是不可能的，因此这个问题的标题

为了让您在运行时更改它，应该有类似于您可以设置的事件处理程序的东西。这是一个简单的概念，但它有一些运行时开销，无论是在调用时间（这将是直接调用通常就足够的间接调用）和所需的内存方面（每个属性都需要一个额外的 TEvent 样式字段）。如果您需要的话，这对您来说很容易实现，但如果编译器“以防万一”自动为所有类生成此类代码，则会有害。

如果您正在考虑在运行时以某种方式修补内存中的代码，那么这是行不通的，而且充其量也是不可靠的。

Answer 3

在这篇题为诱导Great Divide，Cobus Kruger 谈论了业务对象。

他制定的解决方案基本上符合您的要求：

1. 利用最新 Delphi 版本中引入的高级 RTTI 功能。
2. 将业务逻辑与表示逻辑分离。

任何 PODO（普通旧 Delphi 对象）都可以作为业务对象！

神奇之处在于TObjectBinding类，它将任何TWinControl与任何业务对象联系起来。

摘录：

TObjectBinding = class
private
  fCtx: TRttiContext;
  fControlType: TRttiType;
  fObjType: TRttiType;

  fPropFieldMapping: TDictionary<TRttiProperty, TRttiField>; // Dictionary of object Properties & corresponding Fields

  fControl: TWinControl; // The control (normally form)
  fObj: TObject; // Object it represents.

  procedure CreateMappings; 

  function FindField(Prop: TRttiProperty; out Field: TRttiField): Boolean;
  function FieldClass(Field: TRttiField): TClass;

  // Modify these to change the rules about what should be matched.
  function IsValidField(Field: TRttiField): Boolean;
  function IsValidProp(Prop: TRttiProperty): Boolean;

  // Modify these to change the mappings of property type to VCL control class.
  procedure AssignField(Prop: TRttiProperty; Field: TRttiField);
  procedure AssignProp(Prop: TRttiProperty; Field: TRttiField);

  // Used from AssignField/AssignProp. Extend these to support a wider range of properties.
  function GetPropText(Prop: TRttiProperty): string;
  procedure SetPropText(Prop: TRttiProperty; const Text: string);
public
  constructor Create(Control: TWinControl; Obj: TObject);
  destructor Destroy; override;
  //
  procedure Load;
  procedure Save;
end;

我希望这对您来说是一个良好的起点。