Is there an equivalent to "is" for class references?

type    CNodeContent= class of TNodeContent;
   procedure walkContent(node: CNodeContent);
   begin
     Write(PadRight(OidToStr(node.GetOid), 32));
     if node is TScalar then
       Write('  s');

Compilation fails at that point:

test2.pas(46,13) Error: class type expected, but got "CNodeContent"
test2.pas(46,13) Error: Incompatible type for arg no. 2: Got
"CNodeContent", expected "TObject"

In our previous episode, Mark Morgan Lloyd said:

Is there an equivalent to "is" for class references?

yes. classref.inheritsfrom(TClassType)

Marco van de Voort wrote

In our previous episode, Mark Morgan Lloyd said: > Is there an equivalent to "is" for class references? yes. classref.inheritsfrom(TClassType)

Thanks, works like a charm :-)