Metaclass varsayılan argüman değeri (2009 Delphi)

Question

Bir metaclass argüman varsayılan bir değer vermek istiyorum

:

type 
    TMyClass = class 
    end; 

type 
    TMyClassMetaClass = class of TMyClass; 

procedure MyProcedure(const AMetaClass: TMyClassMetaClass = TMyClass); 

mümkündür? Delphi2009'da bana şu hatayı verir: E2026 Sabit ifadesi bekleniyor

Answer 1

Dil kurallarına göre, bir meta sınıf sabit bir ifade değildir.

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

Ve uygulanmasında: Yani en iyi bahis yerine aşırı kullanmaktır

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

procedure MyProcedure; 
begin 
    MyProcedure(TMyClass); 
end;