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

Question

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

换句话说，我想要一个 bool 表达式，例如

var is TMyClass

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

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

奇怪的是，编译器不允许我这样做

classRefVar(nil) is TMyClass

但对看似语法相同但无用的内容感到满意

TMyClass(nil) is TMyClass

显然，表达式

classRefVar = TMyClass

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

当我看到答案时，我真想踢自己一脚……

Answer 1

简单:

ClassRefVar.InheritsFrom(TMyClass)