metaclass trị đối số mặc định (Delphi 2009)

Question

tôi muốn cung cấp một giá trị mặc định trong một cuộc tranh luận metaclass:

type 
    TMyClass = class 
    end; 

type 
    TMyClassMetaClass = class of TMyClass; 

procedure MyProcedure(const AMetaClass: TMyClassMetaClass = TMyClass); 

Có thể? Trong Delphi2009 nó mang lại cho tôi lỗi: E2026 Biểu thức không đổi mong đợi

Answer 1

Theo các quy tắc của ngôn ngữ, một metaclass không phải là một biểu thức liên tục. Vì vậy, đặt cược tốt nhất của bạn là sử dụng quá tải thay vì:

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

Và trong việc thực hiện:

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

procedure MyProcedure; 
begin 
    MyProcedure(TMyClass); 
end;