如何在Delphi 7中获取类的元类?

时间:2016-07-23 21:26:57

标签: delphi-7 metaclass

如果上下文对象属性列表中缺少一个对象,我想引发一个异常:

//******************************************************************************
  EMissingContextObject = class (...)
//******************************************************************************
    private
      // Attributes
      fAttrName : string;
      fAttrType : TClass;

    public
      // Overiden constructors
      constructor create( attrName_ : string; attrType_ : TClass );

      // Properties
      property attrName : string read fAttrName;
      property attrType : TClass read fAttrType;

  end;
//******************************************************************************

如何传递任意TObject后代的TClass类型?

我知道
CClassType = class of TClassType;

定义但我不想依赖这个声明。 我已经尝试过TObject.classType,但它只适用于实例。 我尝试了TypeInfo(TClassType),但它只返回了类的名称。 应该有像Java这样的东西:

TClass c = TClassType.class;

TClass c = TClass.forName( className );

提前致谢!

0 个答案:

没有答案