关键字IS 用户判断类的对象是否是某个类类型。返回值为Bool类型。一个子类属于所有它祖先类的类型。

示例：
program test;
Type A=Class
End;

Type B =Class(A)
End;

Type C=Class(B)
End

Begin
CC:=CreateObject("C");
Writeln(CC is Class(C)); // 输出 1
Writeln(CC is Class(A)); // 输出 1
Writeln(CC is Class(B));// 输出 1
End.