元類的默認參數值（德爾福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;