From f7aa303653b55e2251905fefd7df3d27fbc02f55 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Wed, 24 Apr 2002 14:31:16 +0000
Subject: [PATCH] MG: fixed property completion of stored fuctions

git-svn-id: trunk@1633 -
---
 components/codetools/codecompletiontool.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/codetools/codecompletiontool.pas b/components/codetools/codecompletiontool.pas
index c40b3b0792..097a33cc5d 100644
--- a/components/codetools/codecompletiontool.pas
+++ b/components/codetools/codecompletiontool.pas
@@ -116,7 +116,7 @@ function TCodeCompletionCodeTool.ProcExistsInCodeCompleteClass(
   const NameAndParams: string): boolean;
 // NameAndParams should be uppercase and contains the proc name and the
 // parameter list without names and default values
-// and should not contain any comments, result types
+// and should not contain any comments and no result type
 var ANodeExt: TCodeTreeNodeExtension;
 begin
   Result:=false;
@@ -732,7 +732,7 @@ var AccessParam, AccessParamPrefix, CleanAccessFunc, AccessFunc,
         AccessParam:=copy(Src,Parts[ppName].StartPos,
           Parts[ppName].EndPos-Parts[ppName].StartPos)
           +BeautifyCodeOpts.PropertyStoredIdentPostfix;
-      CleanAccessFunc:=UpperCaseStr(AccessParam);
+      CleanAccessFunc:=UpperCaseStr(AccessParam)+';';
       // check if procedure exists
       if (not ProcExistsInCodeCompleteClass(CleanAccessFunc))
       and (not VarExistsInCodeCompleteClass(CleanAccessFunc))