* 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;
ThisPackage := ThisPackage.NextSibling;
end;
if length(s)=0 then
s := ResolveLinkID('#rtl.System.' + Element.Name);
if Length(s) > 0 then
break;
end;