TObjectAccessControl

type TObjectAccessControl = class(TGoogleBaseObject)

protected

  class function ExportPropertyName(); override;

  procedure Setbucket(); virtual;

  procedure Setdomain(); virtual;

  procedure Setemail(); virtual;

  procedure Setentity(); virtual;

  procedure SetentityId(); virtual;

  procedure Setetag(); virtual;

  procedure Setgeneration(); virtual;

  procedure Setid(); virtual;

  procedure Setkind(); virtual;

  procedure Set_object(); virtual;

  procedure SetprojectTeam(); virtual;

  procedure Setrole(); virtual;

  procedure SetselfLink(); virtual;

published

  property bucket: string; [rw]

  property domain: string; [rw]

  property email: string; [rw]

  property entity: string; [rw]

  property entityId: string; [rw]

  property etag: string; [rw]

  property generation: string; [rw]

  property id: string; [rw]

  property kind: string; [rw]

  property _object: string; [rw]

  property projectTeam: TObjectAccessControlTypeprojectTeam; [rw]

  property role: string; [rw]

  property selfLink: string; [rw]

end;

TObjectAccessControl

TGoogleBaseObject

TObject