paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 09:09:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: codeexplorer: catch syntax error

Browse Source 
git-svn-id: trunk@44356 -
This commit is contained in:
mattias 2014-03-05 17:39:02 +00:00
parent 2e34ddcb2f
commit 7e3b2a63bc
1 changed files with 25 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
ide/codeexplorer.pas
View File

@ -799,7 +799,8 @@ begin
Result:=CodeNode.DescAsString;
end;
except
on E: ECodeToolError do ; // ignore syntax errors
on E: ECodeToolError do
Result:=''; // ignore syntax errors
end;
end;
@ -2580,31 +2581,36 @@ var
CurName: String;
begin
Result:='';
while CodeNode<>nil do begin
CurName:='';
case CodeNode.Desc of
try
while CodeNode<>nil do begin
CurName:='';
case CodeNode.Desc of
ctnTypeDefinition,ctnVarDefinition,ctnConstDefinition,ctnUseUnit:
CurName:=ACodeTool.ExtractIdentifier(CodeNode.StartPos);
ctnTypeDefinition,ctnVarDefinition,ctnConstDefinition,ctnUseUnit:
CurName:=ACodeTool.ExtractIdentifier(CodeNode.StartPos);
ctnGenericType:
CurName:=ACodeTool.ExtractDefinitionName(CodeNode);
ctnGenericType:
CurName:=ACodeTool.ExtractDefinitionName(CodeNode);
ctnEnumIdentifier:
CurName:=ACodeTool.ExtractIdentifier(CodeNode.StartPos);
ctnEnumIdentifier:
CurName:=ACodeTool.ExtractIdentifier(CodeNode.StartPos);
ctnProcedure:
CurName:=ACodeTool.ExtractProcName(CodeNode,[]);
ctnProcedure:
CurName:=ACodeTool.ExtractProcName(CodeNode,[]);
ctnProperty:
CurName:=ACodeTool.ExtractPropName(CodeNode,false); // property keyword is not needed because there are icons
ctnProperty:
CurName:=ACodeTool.ExtractPropName(CodeNode,false); // property keyword is not needed because there are icons
end;
if CurName<>'' then begin
if Result<>'' then Result:='.'+Result;
Result:=CurName+Result;
end;
CodeNode:=CodeNode.Parent;
end;
if CurName<>'' then begin
if Result<>'' then Result:='.'+Result;
Result:=CurName+Result;
end;
CodeNode:=CodeNode.Parent;
except
on E: ECodeToolError do
Result:=''; // ignore syntax errors
end;
end;