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

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

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函数有什么不同吗？

解决方法

is运算符构建在InheritsFrom之上.所以,

obj is TSomeClass

实现为

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

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

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

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

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

原文地址：https://www.jb51.cc/delphi/101681.html