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

fixed code completion of parameter variables for sets of variables

Browse Source 
git-svn-id: trunk@8556 -
This commit is contained in:
mattias 2006-01-18 20:16:59 +00:00
parent 7f45ee18da
commit 9347949119
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codecompletiontool.pas
View File

@ -1076,7 +1076,7 @@ begin
DebugLn(' CompleteLocalVariableAsParameter Procedure does not have so many parameters');
exit;
end;
TypeNode:=ParameterNode.FirstChild;
TypeNode:=FindTypeNodeOfDefinition(ParameterNode);
if TypeNode=nil then begin
DebugLn(' CompleteLocalVariableAsParameter Parameter has no type');
exit;