метаклассы по умолчанию значения аргумента (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;