delphi - 元类默认参数值 (Delphi 2009)

Question

我想在元类参数中给出默认值:

type
  TMyClass = class
  end;

type
  TMyClassMetaClass = class of TMyClass;

procedure MyProcedure(const AMetaClass: TMyClassMetaClass = TMyClass);

有可能吗？在 Delphi2009 中，它给了我错误:E2026需要常量表达式

Answer 1

根据语言规则，元类不是常量表达式。因此，最好的选择是使用重载:

procedure MyProcedure(const AMetaClass: TMyClassMetaClass); overload;
procedure MyProcedure; overload;

在实现中:

procedure MyProcedure(const AMetaClass: TMyClassMetaClass);
begin
  ....
end;  

procedure MyProcedure;
begin
  MyProcedure(TMyClass);
end;