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

Ian*_*dby 4 delphi metaclass class-reference

我想知道的是,对象是否从一个类引用来创建一个特定的类或任何其后代的一个实例.

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

var is TMyClass
Run Code Online (Sandbox Code Playgroud)

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

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

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

classRefVar(nil) is TMyClass
Run Code Online (Sandbox Code Playgroud)

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

TMyClass(nil) is TMyClass
Run Code Online (Sandbox Code Playgroud)

显然,表达

classRefVar = TMyClass
Run Code Online (Sandbox Code Playgroud)

并不好,因为classRefVar可能引用了TMyClass的后代.

当我看到答案时,我期待着自己踢...

Cos*_*und 7

简单:

ClassRefVar.InheritsFrom(TMyClass)
Run Code Online (Sandbox Code Playgroud)