paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 23:20:18 +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'); DebugLn(' CompleteLocalVariableAsParameter Procedure does not have so many parameters');
exit; exit;
end; end;
TypeNode:=ParameterNode.FirstChild; TypeNode:=FindTypeNodeOfDefinition(ParameterNode);
if TypeNode=nil then begin if TypeNode=nil then begin
DebugLn(' CompleteLocalVariableAsParameter Parameter has no type'); DebugLn(' CompleteLocalVariableAsParameter Parameter has no type');
exit; exit;