mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-06 05:02:25 +02:00
codetools: clean up
git-svn-id: trunk@37120 -
This commit is contained in:
parent
e2ddd8da65
commit
96694f6d88
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user