我一直在尝试定义一个通用的、可继承的 TSingleton 类。这是我正在进行的:
TSingleton<RealClass, InheritsFrom : class> = class(InheritsFrom)
strict private
class var FInstance : RealClass;
protected
procedure InstanceInitialization;virtual;
public
destructor Destroy; override;
class procedure Create; reintroduce;
class function Instance : RealClass;
class procedure InstanceFree;
end;
目标是能够在继承树中“插入”单例模式。所以不要声明这样的东西:
TMySingletonComponent = class(TComponent)
end;
并且需要在那里实现单例模式,我会声明如下:
TMyGenericSingletonComponent = class(TSingleton<TMyGenericSingletonComponent,TComponent>)
end;
可悲的是,这行不通。我收到以下错误(在 D2010 中):
TSingleton<RealClass, InheritsFrom : class> = class(InheritsFrom) ///E2021 Class type required
现在我想知道,这可以在 Delphi XE 中使用吗?是否有一些“干净的技巧”可以用来在 D2010 中完成这项工作?有一些根本原因导致这行不通吗?