我有这些课程和一个程序：
TParent = class(TObject); TChild1 = class(TParent); TChild2 = class(TParent); Procedure DoSomething(obj:TParent);@H_502_3@我想做的是当obj是一个TParent而不是一个后代引发一个例外。
我想到这样做：
if obj.classname = TParent.classname then raise exception.create....@H_502_3@但似乎有点黑客(TM)
更多：我的意图是能够传递共享属性/过程的对象。经过更多的思考，TParent Object完全不需要，我需要的是我的答案中显示的接口对象。
解决方法
您可能会发现以下TObject类方法很有用：
> ClassType – 返回一个对象的类
> ClassParent – 给班级的班级
> InheritsFrom – 如果类从另一个类继承(即检查整个继承链)返回。它包括当前课程。
那么你可以用以下代码(未经测试，目前没有Delphi)来实现你想要的(从TParent下载但不是TDescendant？)：
if obj.ClassType.InheritsFrom(TParent) and not obj.ClassType.InheritsFrom(TDescendant) then...@H_502_3@或者，如果我误解了，你只想看一个对象是否是TParent，而不是任何种类的后代，请尝试：
if obj.ClassType = TParent then...@H_502_3@Delphi通过metaclasses提供对类的访问方式领先于前者，因此，而不仅仅是检查类名，您可以访问一个实际的类对象。