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

* Fix bug #30174, by default allow additional properties

Browse Source 
git-svn-id: trunk@33776 -
This commit is contained in:
michael 2016-05-24 08:33:45 +00:00
parent 1d54f9f3e7
commit 4d671cd49d
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/googleapi/src/googlebase.pp
View File

@ -43,7 +43,11 @@ Type
Type
TGoogleBaseObject = CLass(TBaseObject);
{ TGoogleBaseObject }
TGoogleBaseObject = CLass(TBaseObject)
Class Function AllowAdditionalProperties: Boolean; override;
end;
TGoogleBaseObjectClass = Class of TGoogleBaseObject;
TGoogleObjectArray = Array of TGoogleBaseObject;
@ -70,6 +74,15 @@ begin
Result:=RestFactory;
end;
{ TGoogleBaseObject }
Class Function TGoogleBaseObject.AllowAdditionalProperties: Boolean;
begin
// We override this, so people don't get caught whenn google inadvertently adds properties.
// (see e.g. 30174)
Result:=True;
end;
{ TGoogleBaseObjectList }
function TGoogleBaseObjectList.GetO(Aindex: Integer): TGoogleBaseObject;