delphi - 如何使用 TForm 后代的泛型实现单例模式？

Question

我想使用泛型功能在Delphi 2010中实现单例模式。

type
  TgrsObj = class
     class function Singleton<T: class, constructor>(O: T): T; static;
  end;


class function TgrsObj.Singleton<T>(O: T): T;
begin
   if O = nil then
     O := T.Create;
   Result := O;
end;

我想这样调用它:

var
  test: TTestClass;

...
test := TgrsObj<TTestClass>(test);

我的方法可行吗？我应该纠正什么才能使其正常工作？

老实说，我的最终任务是使用 TForm 后代实现单例模式，以将所需的表单作为单例。

这是下一步，但现在我对泛型的 CONSTRUCTOR 约束有疑问。它要求类有一个不带参数的构造函数。但 TForm 没有...解决方法是什么？

Answer 1

在我看来，Delphi 中的构造函数 约束几乎毫无用处。它对您没有真正的用处，因为您需要创建 TForm 后代，并且它们有一个接收参数的构造函数。

您应该将泛型类型 T 限制为从 TForm 派生。

type
  TgrsObj = class
    class function Singleton<T: TForm>(O: T): T; static;
  end;

实现将是:

class function TgrsObj.Singleton<T>(O: T): T;
begin
   Result := O;
   if not Assigned(Result) then
     Result := T(TFormClass(T).Create(nil));
end;

由于您实际上只是尝试访问虚拟 TComponent 构造函数，因此您可以使该类更加通用，如下所示:

type
  TgrsObj = class
    class function Singleton<T: TComponent>(O: T): T; static;
  end;

class function TgrsObj.Singleton<T>(O: T): T;
begin
   Result := O;
   if not Assigned(Result) then
     Result := T(TComponentClass(T).Create(nil));
end;

当然，这会强制 nil 作为表单实例的所有者。您可能希望更改方法以接收所有者，然后将其传递给构造函数。