在所有情况下我都记得,以下说明给出了相同的结果：
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的事实所证明的那样.