bug fix #795

CodeCompletion/ExpressionVisitor.cs

@@ -659,7 +659,8 @@ namespace CodeCompletion
             if (sc.topScope == null) return false;
             while (tmp != null)
             {
-                if (tmp == sc.topScope) return true;
+                if (tmp == sc.topScope || sc.topScope != null && sc.topScope.topScope == tmp)
+                    return true;
                 tmp = tmp.topScope;
             }
             return false;

TestSuite/intellisense_tests/unit1.pas

@@ -0,0 +1,26 @@
+unit unit1;
+
+interface
+
+type
+  t2 = class
+    private class i: integer;
+  end;
+  
+procedure p1;
+
+implementation
+
+type
+  t1 = class
+    private class i: integer;
+  end;
+
+procedure p1;
+begin
+  t1.i{@var t1.i: integer;@} := 1;
+  var j{@var j: integer;@} := t1.i;
+  var k{@var k: integer;@} := t2.i;
+end;
+
+end.