测试类引用(元类)变量中的类是否为TMyClass

时间:2011-03-18 13:46:06

标签: delphi metaclass class-reference

我想知道从类引用中创建 的对象是否是特定类或其任何后代的实例。

换句话说,我想要一个布尔表达式,例如

var is TMyClass

但其中var被替换为涉及类引用变量的表达式。这听起来很容易,但让我完全难过。

我可以创建一个实例var:= classRefVar.Create,测试它,然后销毁它,但这是一个巨大的开销。

奇怪的是,编译器不会让我拥有

classRefVar(nil) is TMyClass

但是对于看似等效的语法却很无用

TMyClass(nil) is TMyClass

显然,表达方式

classRefVar = TMyClass

不好,因为classRefVar可能引用TMyClass的后代。

当我看到答案时,我期待自己开始......

1 个答案:

答案 0 :(得分:7)

易:

ClassRefVar.InheritsFrom(TMyClass)