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

codetools: property completion: fixed read/write accessor for param+index specifier

Browse Source 
git-svn-id: trunk@55917 -
This commit is contained in:
mattias 2017-09-24 17:58:26 +00:00
parent dd43ceac8e
commit 0e777d6648
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/codetools/codecompletiontool.pas
View File

@ -7243,8 +7243,6 @@ var
AccessParam:=copy(Src,Parts[ppRead].StartPos,
Parts[ppRead].EndPos-Parts[ppRead].StartPos)
else begin
AccessParam:=''; // This was missing
// ToDo: Fix this test. AccessParam is now empty.
if (Parts[ppParamList].StartPos>0) or (Parts[ppIndexWord].StartPos>0)
or (SysUtils.CompareText(AccessParamPrefix,
LeftStr(AccessParam,length(AccessParamPrefix)))=0)
@ -7299,9 +7297,8 @@ var
end else begin
// ToDo: find out type of index
if (Parts[ppParamList].StartPos>0) then begin
// index + param list
CleanAccessFunc:=UpperCaseStr(AccessParam+'('+IndexType+';')
+CleanParamList+');';
// param list + index
CleanAccessFunc:=UpperCaseStr(AccessParam+'('+CleanParamList+';'+IndexType+');');
end else begin
// index, no param list
CleanAccessFunc:=UpperCaseStr(AccessParam+'('+IndexType+');');
@ -7341,9 +7338,9 @@ var
AccessFunc:='function '+AccessParam
+'('+ParamList+'):'+PropType+';';
end else begin
// index + param list
// param list + index
AccessFunc:='function '+AccessParam
+'(AIndex:'+IndexType+';'+ParamList+'):'+PropType+';';
+'('+ParamList+'; AIndex:'+IndexType+'):'+PropType+';';
end;
end else begin
if (Parts[ppIndexWord].StartPos<1) then begin
@ -7432,9 +7429,8 @@ var
end else begin
// ToDo: find out index type
if (Parts[ppParamList].StartPos>0) then begin
// index + param list
CleanAccessFunc:=UpperCaseStr(AccessParam+'('+IndexType+';'
+CleanParamList+';'+PropType+');');
// param list + index
CleanAccessFunc:=UpperCaseStr(AccessParam+'('+CleanParamList+';'+IndexType+';'+PropType+');');
end else begin
// index, no param list
CleanAccessFunc:=UpperCaseStr(AccessParam+'('+IndexType+';'+PropType+');');
@ -7481,9 +7477,9 @@ var
+'('+ParamList+';'+AccessVariableNameParam+':'
+PropType+');';
end else begin
// index + param list
// param list+ index
AccessFunc:='procedure '+AccessParam
+'(AIndex:'+IndexType+';'+ParamList+';'
+'('+ParamList+';AIndex:'+IndexType+';'
+AccessVariableNameParam+':'+PropType+');';
end;
end else begin
@ -7603,7 +7599,7 @@ var
AccessFunc := 'function ' + AccessParam + '(AIndex:'+IndexType+'):Boolean;';
CleanAccessFunc := UpperCaseStr(CleanAccessFunc + '('+IndexType+');');
if IsClassProp then
AccessFunc:='class '+AccessFunc+' static;';;
AccessFunc:='class '+AccessFunc+' static;';
// add new Insert Node
if CompleteProperties then
AddClassInsertion(CleanAccessFunc,AccessFunc,AccessParam,