|
@@ -3465,7 +3465,7 @@ begin
|
|
// AncestorScope can be derived from DirectAncestor
|
|
// AncestorScope can be derived from DirectAncestor
|
|
// CanonicalClassOf is autogenerated
|
|
// CanonicalClassOf is autogenerated
|
|
CanonicalClassOf:=Scope.CanonicalClassOf;
|
|
CanonicalClassOf:=Scope.CanonicalClassOf;
|
|
- if aClass.ObjKind=okClass then
|
|
|
|
|
|
+ if aClass.ObjKind in ([okClass]+okAllHelpers) then
|
|
begin
|
|
begin
|
|
if CanonicalClassOf=nil then
|
|
if CanonicalClassOf=nil then
|
|
RaiseMsg(20180217143821,aClass);
|
|
RaiseMsg(20180217143821,aClass);
|