metaklasa domyślną wartość argumentu (Delphi 2009)

Question

chcę dać wartość domyślną w argumencie metaklasa:

type 
    TMyClass = class 
    end; 

type 
    TMyClassMetaClass = class of TMyClass; 

procedure MyProcedure(const AMetaClass: TMyClassMetaClass = TMyClass); 

Jest to możliwe? W Delphi2009 daje mi to błąd: E2026 Stałe wyrażenie oczekiwane

Answer 1

Zgodnie z regułami języka metaclass nie jest wyrażeniem stałym. Więc najlepiej jest używać zamiast przeciążenia:

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

A w realizacji:

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

procedure MyProcedure; 
begin 
    MyProcedure(TMyClass); 
end;