Criar JSON com Componentes do Delphi (TJSONObject, TJSONArray)

[Hetosoft Sistemas]

Bom dia Galera!

   Estou tentando montar um JSON para comunicacao com uma API, o formato que preciso montar é esse: 

    

{
    "id": "1",
    "type": "TPS",


    "SubObjeto": {
        "name": "Teste",
        "phones": [
            "987654321","0123456789"
        ],


        "address": {
            "country": "BR",
            "state": "MT"
        }
    }        

}  

 

Só que ate agora o que consegui foi:

var
  LJson, LJsonObject: TJSONObject;
  LArray: TJSONArray;


LJsonObject := TJSONObject.Create;

      LJsonObject.AddPair(TJSONPair.Create('id', '1'));
      LJsonObject.AddPair(TJSONPair.Create('type', 'TPS'));

        // SubObjeto
        LArray := TJSONArray.Create;
        LJson   := TJSONObject.Create;

        LJson.AddPair(TJSONPair.Create('name', 'Teste'));
        LJson.AddPair(TJSONPair.Create('phones', ?));

         //Address ?


        LArray.Add(LJson);

        LJsonObject.AddPair(TJSONPair.Create('SubObjeto', LArray));

        ShowMessage(LJsonObject.ToString);

 

Alguém já montou algum JSON assim ?

 

Desde já agradeço!

[Juliomar Marchetti]

Boa tarde

que delphi está usando?

cria uma classe e chama a serialização que faz certinho

[Hetosoft Sistemas]

Estou usando Delphi 10.2 Tokyo.

[Juliomar Marchetti]

Então basta tu criar uma classe no Delphi com essas informações e depois serializar