mORMot Open Source

  TCRMUser = class(TPersistent)
  private
    FAdmin: Boolean;
    FFdId: Double;
    FId: Double;
    FName: RawUTF8;
    FSocietes: TArray<RawUTF8>;
    FUser: RawUTF8;
    // public

  published
    property admin: Boolean read FAdmin write FAdmin;
    property fdId: Double read FFdId write FFdId;
    property id: Double read FId write FId;
    property name: RawUTF8 read FName write FName;
    property societes: TArray<RawUTF8> read FSocietes write FSocietes;
    property User: RawUTF8 read FUser write FUser;
  end;

var
  CRMUser: TCRMUser;
  JSON: RawUTF8;
  IsValidJson: Boolean;
begin
  TJSONSerializer.RegisterClassForJSON([TCRMUser]);
  CRMUser := TCRMUser.Create;
  try
    JSON := '{"admin":false,"fdId":37,"id":17,"name":"Jean-Pierre LeGros","societes":["DODO","DROUAULT"],"User":"jplegros"}';
    JSONToObject(CRMUser, PUTF8Char(JSON), IsValidJson);
    with Memo1 do
    begin
      clear;
      Lines.Add(CRMUser.User);
    end;
  finally
    CRMUser.Free;
  end;
end;

{"admin":false,"fdId":37,"id":17,"name":"Jean-Pierre LeGros","societes":["MANGER_SA","BOIRE_SAS"],"user":"jplegros"}

TUser = class(TSQLRecord)
  private
    FAdmin: Boolean;
    FFdId: Extended;
    FId: Extended;
    FName: String;
    FSocietes: TArray<String>;
    FUser: String;

  public
    property admin: Boolean read FAdmin write FAdmin;
    property fdId: Extended read FFdId write FFdId;
    property id: Extended read FId write FId;
    property name: String read FName write FName;
    property societes: TArray<String> read FSocietes write FSocietes;
    property User: String read FUser write FUser;
  end;

var
  User: TUser;
  JSON : RawUTF8;
begin
  JSON := {"admin":false,"fdId":37,"id":17,"name":"Jean-Pierre LeGros","societes":["MANGER_SA","BOIRE_SAS"],"user":"jplegros"};
  User:= TUser.CreateAndFillPrepare(JSON);
  try
    while User.FillOne do
      begin
        Memo1.Lines.Add('Id : ' + User.id.ToString);
        Memo1.Lines.Add('User Name: ' + User.name);
      end;
  finally
    User.Free;
  end;
end;

    fSpecificOptions.Values['CharLength'] := '2';