codetools: clean up

git-svn-id: trunk@37120 -
This commit is contained in:
mattias 2012-05-01 13:34:41 +00:00
parent e2ddd8da65
commit 96694f6d88

View File

@ -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