mORMot Open Source

type
  TBaseClass = class(TSynAutoCreateFields)
  private
    FID: RawUTF8;
  published
    property ID : RawUTF8 read FID write FID;
end;

type
  TGroup = class(TBaseClass)
  private
    FName: RawUTF8;
  published
    property Name : RawUTF8 read FName write FName;
end;

type
  //CHANGE CLASS TYPE HERE FOR TCollectionItemAutoCreateFields
  TGroups = class(TCollectionItemAutoCreateFields)
  private
    FGroupID: RawUTF8;
    FUserID: RawUTF8;
    FGroup: TGroup;
  published
    property UserID : RawUTF8 read FUserID write FUserID;
    property GroupID : RawUTF8 read FGroupID write FGroupID;
    property Group : TGroup read FGroup;
end;       

//THIS IS NEW CLASS FOR MANAGE COLLECTION AND ACCESS LIKE AN ARRAY
type
  TGroupsCollection = class(TInterfacedCollection)
  private
    function GetCollItem(aIndex: Integer): TGroups;
  protected
    class function GetClass: TCollectionItemClass; override;
  public
    function Add: TGroups;
    property Item[aIndex: Integer]: TGroups read GetCollItem; default;
  end;

type
  TUser = class(TBaseClass)
  private
    FUsername: RawUTF8;
    FFirstName: TNullableUTF8Text;
    FLastName: TNullableUTF8Text;
    FGroups: TGroupsCollection;
    FCanSynchronize: boolean;
  published
    property Username : RawUTF8 read FUsername write FUsername;
    property FirstName : TNullableUTF8Text read FFirstName write FFirstName;
    property LastName : TNullableUTF8Text read FLastName write FLastName;

    property Groups: TGroupsCollection read FGroups;
end;

type
  TCompany = class(TBaseClass)
  private
    FCanSynchronize: boolean;
    FType: Integer;
    FName: RawUTF8;
  published
    property CanSynchronize : boolean read FCanSynchronize write FCanSynchronize;
    property Name : RawUTF8 read FName write FName;
    property Types : Integer read FType write FType;
end;

type
  TSession = class(TBaseClass)
  private
    FUserID: RawUTF8;
    FUser: TUser;
    FCompanyID: RawUTF8;
    FCompany: TCompany;
  published
    property UserID : RawUTF8 read FUserID write FUserID;
    property User : TUser read FUser;
    property CompanyID : RawUTF8 read FCompanyID write FCompanyID;
    property Company : TCompany read FCompany;
end;

type
  TSessions = class(TSynAutoCreateFields)
  private
    FSession: TSession;
    function GetSession: TSession;
  published
    property Session : TSession read FSession;
  end;

function TGroupsCollection.Add: TGroups;
begin
  result := TGroups(inherited Add);
end;

class function TGroupsCollection.GetClass: TCollectionItemClass;
begin
  result := TGroups;
end;

function TGroupsCollection.GetCollItem(aIndex: Integer): TGroups;
begin
  result := TGroups(GetItem(aIndex));
end;

  lSessions := TSessions.Create;

  lSessions.Session.UserID := ('d0d49a49-7cd2-4336-a85e-0bd60584178e');
  lSessions.Session.User.Username := 'admin';

  with lSessions.Session.User.Groups.Add do
  begin
    Group.Name := 'ADMIN';
  end;
  with lSessions.Session.User.Groups.Add do
  begin
    Group.Name := 'INVITE';
  end;

  lSessions.Session.CompanyID := ('a58907b7-8be2-4a14-9a82-0bd60581fad0');
  lSessions.Session.Company.Name := 'Acomba Demo';

  Memo1.Text := ObjectToJSON(lSessions, [woHumanReadable]);

  FreeAndNil(lSessions);

{
	"Session": {
		"UserID": "d0d49a49-7cd2-4336-a85e-0bd60584178e",
		"User": {
			"Username": "admin",
			"FirstName": null,
			"LastName": null,
			"Groups": 
			[{
					"UserID": "",
					"GroupID": "",
					"Group": {
						"Name": "ADMIN",
						"ID": ""
					}
				},{
					"UserID": "",
					"GroupID": "",
					"Group": {
						"Name": "INVITE",
						"ID": ""
					}
				}
			],
			"ID": ""
		},
		"CompanyID": "a58907b7-8be2-4a14-9a82-0bd60581fad0",
		"Company": {
			"CanSynchronize": false,
			"Name": "Acomba Demo",
			"Types": 0,
			"ID": ""
		},
		"ID": ""
	}
}

lSessions := TSessions.Create;
JSONToObject(lSessions, @Memo1.Text[1], isValid, nil, [j2oIgnoreUnknownProperty]);
FreeAndNil(lSessions);