Delphi扩展类

Question

首先,对不起,如果标题有点令人困惑.

我打算开发一个小型的erp应用程序.这个应用程序将使用插件/插件.此插件可能会添加或扩展基本应用程序的某些模块.

例如,我有TCustomer类,其属性为"id","name".插件1将添加属性"dateofbirth".插件2将添加属性"balance"和方法"GetBalance".

插件1和插件2彼此不了解.可能安装了插件1而不是插件2,反之亦然.所以这两个插件都必须继承基本的tcustomer类.

问题是当两个插件都安装完毕.如何在两个插件中获得扩展属性？我还必须扩展表单以添加控件以显示新属性.

可以用delphi完成吗？实现这一目标的最佳方法是什么？也许你可以指点我的一些例子？

谢谢,对不起我可怜的英国人Reynaldi

Answer 1

好吧,正如您已经知道的那样,您不能有多个插件通过继承扩展现有类.它会混淆任何应用程序,包括任何程序员处理代码.

您需要的是TCustomer类中的某种类型的寄存器机制,其中每个插件都可以注册其特定属性,或者在创建(初始化),加载,存储或删除TCustomer实例时提供一些回调函数.毕竟,核心TCustomer确实不需要了解插件的更多信息,而不是它们可能存在的事实.

根据您打算如何加载/存储数据,核心TCustomer类甚至不必了解扩展.只要TCustomer/TOrder/TWOUT被初始化/加载/保存/删除,就可以让持久性机制知道插件,并为它们提供一种注册回调函数的方法.

您还必须使GUI了解插件,并为他们提供注册UI的方法,以使主GUI为每个插件的特定控件创建额外的选项卡或其他选项卡.

抱歉没有代码示例.我自己还没有实现这个,虽然我考虑过这个设计并且它已经列入了我可以使用的东西列表中.

也就是说,为了给你一个想法,基本机制可能看起来像这样:

TBaseObject = class; // forward declaration

// Class that each plug-in's extensions of core classes needs to inherit from.
TExtension = class(TObject)
public
  procedure Initialize(aInstance: TBaseObject);
  procedure Load(aInstance: TBaseObject);
  procedure Store(aInstance: TBaseObject);
  procedure Delete(aInstance: TBaseObject);
end;

// Base class for all domain classes
TBaseObject = class(TObject)
private
  MyExtensions: TList<TExtension>;
public
  procedure RegisterExtension(const aExtension: TExtension);
  procedure Store;
end;

procedure TBaseObject.RegisterExtension(const aExtension: TExtension);
begin
  MyExtensions.Add(aExtension);
end;

procedure TBaseObject.Store;
var
  Extension: TExtension;
begin
  // Normal store code for the core properties of a class.
  InternalStore; 
  // Give each extension the opportunity to store their specific properties.
  for Extension in MyExtensions do
    Extension.Store(Self);
end;