我如何确定一个Delphi对象是否是一个特定的类,而不是任何后代类？

我有这些课程和一个程序：

TParent = class(TObject);
 TChild1 = class(TParent);     
 TChild2 = class(TParent);

 Procedure DoSomething(obj:TParent);

我想做的是当obj是一个TParent而不是一个后代引发一个例外。

我想到这样做：

if obj.classname = TParent.classname then raise exception.create....

但似乎有点黑客(TM)

更多：我的意图是能够传递共享属性/过程的对象。经过更多的思考，TParent Object完全不需要，我需要的是我的答案中显示的接口对象。

解决方法

您可能会发现以下TObject类方法很有用：

> ClassType – 返回一个对象的类
> ClassParent – 给班级的班级
> InheritsFrom – 如果类从另一个类继承(即检查整个继承链)返回。它包括当前课程。

那么你可以用以下代码(未经测试，目前没有Delphi)来实现你想要的(从TParent下载但不是TDescendant？)：

if obj.ClassType.InheritsFrom(TParent)
  and not obj.ClassType.InheritsFrom(TDescendant) then...

或者，如果我误解了，你只想看一个对象是否是TParent，而不是任何种类的后代，请尝试：

if obj.ClassType = TParent then...

Delphi通过metaclasses提供对类的访问方式领先于前者，因此，而不仅仅是检查类名，您可以访问一个实际的类对象。