InheritsFrom和is运算符之间有什么区别？

Question

在所有情况下我都记得,以下说明给出了相同的结果:

type
  TMyClass = class(TObject);
  TMyChildClass = class(TMyClass);

var
  MyObj : TMyChildClass;

procedure TForm1.Test();
var
  ResultA : Boolean;
  ResultB : Boolean;
begin
  //Using TObject.InheritsFrom
  ResultA := MyObj.InheritsFrom(TMyClass);

  //Using 'is' operator
  ResultB := MyObj is TMyClass;

  //Showing results
  ShowMessage(
    'InheritsFrom = ' + BoolToStr(ResultA, True) + sLineBreak +
    'is = ' + BoolToStr(ResultB, True)
  );
end;

使用is运算符而不是TObject.InheritsFrom函数有什么区别吗？

Answer 1

是,有一点不同.InheritsFrom是类函数,它的主要目的是测试类是否IS继承(从某些类继承).

您不能is在类上使用运算符.

TMyChildClass is TMyClass不会编译,但你可以使用TMyChildClass.InheritsFrom(TMyClass).

Answer 2

该is操作是建立在之上InheritsFrom.所以,

obj is TSomeClass

实现为

(obj <> nil) and obj.InheritsFrom(TSomeClass)

表达式obj.InheritsFrom(TSomeClass)可能有点令人困惑,因为它看起来像是InheritsFrom一个实例方法.实际上InheritsFrom是一个类方法,并将运行时类作为指针obj传递给InheritsFrom它Self.

从根本上讲is,InheritsFrom执行相同的任务,至少在限制对类的关注时.注意,is它更通用,也可以与接口一起使用.

有明显的语法差异.即,它is需要一个实例,而是InheritsFrom一个类函数.虽然,正如我们所看到的,Delphi语言确实支持在实例引用上调用类函数.另一个明显的区别是is有一个内置的nil参考测试.

这些只是语法差异,但基本操作是相同的,正如is调用这一事实所证明的那样InheritsFrom.