存储泛型类型参数以备将来使用

Question

我有一些从 TRootFrame 派生的 TFrame。 我通过带有通用参数的方法显示这些帧，例如：

    class
      ..

    procedure Push<T:TFrameRoot>;

    end.
    
    Implementation
        
    procedure TFormMain.Push<T>(const closeMenu: Boolean);
    begin
    
      ShowFrame<T>();
    
      if closeMenu then
        DoCloseMenu();

    end;

这一切都很好，现在我想推送显示在堆栈上的帧，以便以后可以像这样弹出它：

procedure TFormMain.Push<T>(const closeMenu: Boolean);
begin

  fFrameStack.Push(T);

  ShowFrame<T>();

    if closeMenu then
        DoCloseMenu();
end;  

procedure TFormMain.Pop<T>();
var 
  frameType:T;
begin

  frameType := fFrameStack.Pop();

  ShowFrame<frameType as T>();

end;

你有什么想法？

谢谢，爱德华

Answer 1

将ShowFrame<T:TFrameRoot>更改为ShowFrame(frameClass: TFrameRootClass)并声明TFrameRootClass = class of TFrameRoot 。 因为你的T被约束到TFrameRoot你可以简单地将T分配给TFrameRootClass变量/参数的变量。 fFrameStack也是一个Stack<TFrameRootClass>

procedure TFormMain.ShowFrame(frameRootClass: TFrameRootClass);
begin
end;

procedure TFormMain.Push<T>(const closeMenu: Boolean);
begin
  fFrameStack.Push(T);

  ShowFrame(T);
end;

procedure TFormMain.Pop<T>();
var
  frameType: TFrameRootClass;
begin
  frameType := fFrameStack.Pop();

  ShowFrame(frameType);
end;

个人建议：如果您将泛型类型参数限制为某个类，那么拥有泛型通常是没有意义的，而是使用类引用（那class of ...东西）。

您可以轻松地使您的Push和Pop方法简单地采用TFrameRootClass的参数。