From 19871f26cb2e293d89546cc36ce0f68a08d74bdd Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 20 Jan 2010 11:30:24 +0000
Subject: [PATCH] codetools: fixed completing empty classes

git-svn-id: trunk@23498 -
---
 components/codetools/codecompletiontool.pas | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/components/codetools/codecompletiontool.pas b/components/codetools/codecompletiontool.pas
index 173e0d6c9f..7ea2a052f6 100644
--- a/components/codetools/codecompletiontool.pas
+++ b/components/codetools/codecompletiontool.pas
@@ -391,13 +391,14 @@ begin
   // find first variable/method/GUID
   FCompletingStartNode:=FCodeCompleteClassNode.FirstChild;
   while FCompletingStartNode<>nil do begin
-    if FCompletingStartNode.Desc in AllClassSections then
-      FCompletingStartNode:=FCompletingStartNode.Next
-    else if FCompletingStartNode.Desc in (AllIdentifierDefinitions
-      +[ctnProperty,ctnProcedure])
-    then
-      break
-    else
+    if (FCompletingStartNode.Desc in AllClassSections)
+    and (FCompletingStartNode.FirstChild<>nil)
+    and (FCompletingStartNode.FirstChild.Desc in (AllIdentifierDefinitions
+      +[ctnProperty,ctnProcedure,ctnClassGUID]))
+    then begin
+      FCompletingStartNode:=FCompletingStartNode.FirstChild;
+      break;
+    end else
       FCompletingStartNode:=FCompletingStartNode.NextBrother;
   end;
 end;