Converter: Allow class definition in implementation section.

git-svn-id: trunk@27327 -
This commit is contained in:
juha 2010-09-12 11:15:56 +00:00
parent 017b48771a
commit 772c10f63e

View File

@ -1145,7 +1145,7 @@ var
if LookupRootTypeName='' then exit;
// find root type
RootClassNode:=fCodeTool.FindClassNodeInInterface(LookupRootTypeName,true,false,false);
RootClassNode:=fCodeTool.FindClassNodeInUnit(LookupRootTypeName,true,false,false,false);
RootContext:=CleanFindContext;
RootContext.Node:=RootClassNode;
RootContext.Tool:=fCodeTool;