From 05c1c9a1b5cc8b22b4ca036aa662c774a4239d27 Mon Sep 17 00:00:00 2001
From: Ivan Bondarev <ibond84@googlemail.com>
Date: Wed, 2 Nov 2022 20:18:17 +0100
Subject: [PATCH] fix pascalabcnet/pascalabcnetide#255

---
 CodeCompletion/DomSyntaxTreeVisitor.cs |  3 ++-
 TestSuite/intellisense_tests/unit2.pas | 19 +++++++++++++++++++
 2 files changed, 21 insertions(+), 1 deletion(-)
 create mode 100644 TestSuite/intellisense_tests/unit2.pas

diff --git a/CodeCompletion/DomSyntaxTreeVisitor.cs b/CodeCompletion/DomSyntaxTreeVisitor.cs
index e70146fcc..b8a4d305e 100644
--- a/CodeCompletion/DomSyntaxTreeVisitor.cs
+++ b/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;
             }
diff --git a/TestSuite/intellisense_tests/unit2.pas b/TestSuite/intellisense_tests/unit2.pas
new file mode 100644
index 000000000..d841e1ab4
--- /dev/null
+++ b/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.
\ No newline at end of file