paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 08:48:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Create setters with const in front of value argument

Browse Source 
git-svn-id: trunk@32725 -
This commit is contained in:
michael 2015-12-26 13:55:06 +00:00
parent a756a2afac
commit e13c95443f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/googleapi/src/googlediscoverytopas.pp
View File

@ -1061,7 +1061,7 @@ begin
begin
N:=S.PropertyName;
tn:=GetPropertyType(AClassName,S);
AddLn('Procedure Set%s(AIndex : Integer; AValue : %s); virtual;',[N,tn]);
AddLn('Procedure Set%s(AIndex : Integer; Const AValue : %s); virtual;',[N,tn]);
end;
if NeedSetArrayLength and not UseListForArray then
begin
@ -1119,7 +1119,7 @@ begin
AddLn('Private');
IncINdent;
Addln('Function GetI (AIndex : Integer) : %s;',[AItemName]);
Addln('Procedure SetI (AIndex : Integer; AValue: %s);',[AItemName]);
Addln('Procedure SetI (AIndex : Integer; Const AValue: %s);',[AItemName]);
DecIndent;
AddLn('Protected');
IncIndent;
@ -1216,7 +1216,7 @@ begin
NeedGetWritename:=NeedGetWritename or (CompareText(N,S.Name)<>0);
TN:=GetPropertyType(AClassName,S);
Addln('');
AddLn('Procedure %s.Set%s(AIndex : Integer; AValue : %s); ',[AClassName,N,tn]);
AddLn('Procedure %s.Set%s(AIndex : Integer; Const AValue : %s); ',[AClassName,N,tn]);
SimpleMethodBody([Format('If (F%s=AValue) then exit;',[N]),
Format('F%s:=AValue;',[N]),
'MarkPropertyChanged(AIndex);']);
@ -1252,7 +1252,7 @@ begin
Addln('Function %s.GetI (AIndex : Integer) : %s;',[AClassName,AItemName]);
SimpleMethodBody([Format('Result:=%s(Objects[AIndex]);',[AItemName])]);
Addln('');
Addln('Procedure %s.SetI (AIndex : Integer; AValue: %s);',[AClassName,AItemName]);
Addln('Procedure %s.SetI (AIndex : Integer; Const AValue: %s);',[AClassName,AItemName]);
SimpleMethodBody(['Objects[AIndex]:=AValue;']);
Addln('');
AddLn('Class Function %s.ObjectClass : TBaseObjectClass;',[ACLassName]);