diff --git a/components/codetools/examples/fixdefinitionorder.lpi b/components/codetools/examples/fixdefinitionorder.lpi index 6864ec7d5a..9934345049 100644 --- a/components/codetools/examples/fixdefinitionorder.lpi +++ b/components/codetools/examples/fixdefinitionorder.lpi @@ -26,10 +26,10 @@ - + - + diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas index c425c3f128..e7f298b3a6 100644 --- a/components/codetools/pascalparsertool.pas +++ b/components/codetools/pascalparsertool.pas @@ -1838,7 +1838,7 @@ function TPascalParserTool.KeyWordFuncClassProperty: boolean; end; begin - if not (CurNode.Desc in AllClassBaseSections) then + if not (CurNode.Desc in (AllClassBaseSections+[ctnClassInterface])) then RaiseIdentExpectedButAtomFound; // create class method node CreateChildNode;