* while searching for ancestor classes/interfaces after all USES unit

also search unit system.

git-svn-id: trunk@15803 -
This commit is contained in:
marco 2010-08-13 22:34:42 +00:00
parent b63e82f815
commit 9883c06545

View File

@ -1526,6 +1526,8 @@ begin
break; break;
ThisPackage := ThisPackage.NextSibling; ThisPackage := ThisPackage.NextSibling;
end; end;
if length(s)=0 then
s := ResolveLinkID('#rtl.System.' + Element.Name);
if Length(s) > 0 then if Length(s) > 0 then
break; break;
end; end;