From 96694f6d88b56f31fb5fe4712a88d318925ce296 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 1 May 2012 13:34:41 +0000
Subject: [PATCH] codetools: clean up

git-svn-id: trunk@37120 -
---
 components/codetools/pascalreadertool.pas | 2 --
 1 file changed, 2 deletions(-)

diff --git a/components/codetools/pascalreadertool.pas b/components/codetools/pascalreadertool.pas
index 11a2ab40df..c398321fd5 100644
--- a/components/codetools/pascalreadertool.pas
+++ b/components/codetools/pascalreadertool.pas
@@ -589,8 +589,6 @@ end;
 
 function TPascalReaderTool.ExtractClassName(Node: TCodeTreeNode;
   InUpperCase: boolean; WithParents: boolean): string;
-var
-  InArray: Boolean;
 begin
   Result:='';
   while Node<>nil do begin