fix pascalabcnet/pascalabcnetide#255

CodeCompletion/DomSyntaxTreeVisitor.cs

@@ -167,7 +167,8 @@ namespace CodeCompletion
                 var arr = tn.full_name.Split('.');
                 foreach (string s in arr)
                 {
-                    ntr.names.Add(new ident(s));
+                    if (s.IndexOf("implementation__") == -1)
+                        ntr.names.Add(new ident(s));
                 }
                 return ntr;
             }

TestSuite/intellisense_tests/unit2.pas

@@ -0,0 +1,19 @@
+unit unit2;
+
+interface 
+
+implementation
+
+type 
+  c1 = class
+    f1: string;
+  end;
+
+  procedure pr1;
+  begin
+    var i1:= new c1;
+    i1.f1{@var c1.f1: string;@} := '';
+  end;
+
+
+end.