Fórum JsonArray em Client Delphi #544014

procedure TForm.NomeProcedure(Param1,Param2:String);
Var
  i: integer;
  Consulta, ArrayObjetos: TStringList;
  Resposta: TStringStream;
  JSon: TlkJSONobject;
  JSArray: TlkJSONlist;
  Var1,Var2,Var3,Var4: TlkJSONbase;
begin
  ArrayObjetos := TStringList.Create;
  Consulta        := TStringList.Create;
  Resposta       := TStringStream.Create('');

  Consulta.Values['parametro1'] := Param1;
  Consulta.Values['parametro2'] := Param2

  IdHTTP1.Post(LinkdoWebService, Consulta, Resposta);    // utilizei o metodo POST 

  JSon := TlkJSON.ParseText(Resposta.DataString) as TlkJSONobject;
  Var1  := JSon.Field['variavel_1'];
  Var2  := JSon.Field['variavel_2'];
  Var3  := JSon.Field['variavel_3'];
  Var4  := JSon.Field['variavel_4'];
 
  FreeAndNil(Resposta);
  FreeAndNil(Consulta);

  JSArray := JSon.Field['variavel_5'] as TlkJSONlist;
  for i:=0 to JSArray.count-1 do
    ArrayObjetos.Add(VarToStr(JSArray.Child[i].Field['nome'].Value) +'='+ VarToStr(JSArray.Child[i].Field['valor'].Value));     // essa linha você ira alimentar o seu ClientDataSet
 end;

{
  "variavel_1": 0,
  "variavel_2": false,
  "variavel_3": "Operação realizada com sucesso!",
  "variavel_4": "SAX",
  "variavel_5": [
    {
      "nome": "COMPRA",
      "valor": true
    },
    {
      "nome": "CONTABIL",
      "valor": true
    },
    {
      "nome": "CRM",
      "valor": true
    }
  ]
}