[gl00mie]

Пардон, это я в 3-ный SysDictClass перенес пару методов из 2009-й:

public static boolean is(Object _class, classId _classId)
{
    SysDictClass    dictCls = new SysDictClass(classidget(_class));
    boolean         ret     = dictCls && dictCls.isImplementing(_classId);
    ;
    if (!ret)
    {
        ret = SysDictClass::isEqualOrSuperclass(classidget(_class), _classId);
    }
    return ret;
}

static public Object as(Object _class, classId _classId)
{
    if (SysDictClass::is(_class, _classId))
        return _class;
    return null;
}