Ler JSON com mais de UMA TAG

[johnbh3]

Bom dia

 

{"nomeBeneficiario":"PERFILSIS DESENVOLVIMENTO DE SOFTWA","cnpjCpfBeneficiario":"08030107000194","tipoPessoaBeneficiario":"JURIDICA","dataHoraSituacao":"15\/07\/2021 00:00","codigoBarras":"07796869600000010000001112050675100701552434","linhaDigitavel":"07790001161205067510207015524346686960000001000","dataVencimento":"29\/07\/2021","dataEmissao":"14\/07\/2021","seuNumero":"6","valorNominal":10.00,"nomePagador":"BIO MOVEIS E DECORACOES LTDA","emailPagador":"[email protected]","dddPagador":"11","telefonePagador":"44363936","tipoPessoaPagador":"JURIDICA","cnpjCpfPagador":"01281218000124","codigoEspecie":"OUTROS","dataLimitePagamento":"27\/09\/2021","valorAbatimento":0.00,"situacaoPagamento":"BAIXADO","situacao":"PAGO","mensagem":{"linha1":"MULTA DE 3,50 E JUROS DE 0,25 AO DIA APÓS O VENCIMENTO","linha2":"Nosso whatsapp (31) 98856-1070 - nosso site www.perfilsistemas.com.br","linha3":"Boleto emitido através do software GestãoClick - www.gestaoclick.com.br","linha4":"","linha5":""},"desconto1":{"codigo":"NAOTEMDESCONTO","taxa":0.00,"valor":0.00},"desconto2":{"codigo":"NAOTEMDESCONTO","taxa":0.00,"valor":0.00},"desconto3":{"codigo":"NAOTEMDESCONTO","taxa":0.00,"valor":0.00},"multa":{"codigo":"VALORFIXO","data":"2021-07-30","taxa":0.00,"valor":3.50},"mora":{"codigo":"VALORDIA","data":"2021-07-30","taxa":0.00,"valor":0.25},"valorTotalRecebimento":10.00}

 

Estou tentando ler este JSON. Quando eu tenho mais de um NO eu consigo ler os dados do JSON.

 

Eu agora estou precisando pegar a situação do boleto que neste JSON esta como pago.
Tudo tento fazer como se fosse um JSON simples sem no da acess violation 

 

Alguém pode me ajudar com pego a situação do boleto? 

Pessoal,

Deu certo aqui
fiz isto

 

var
  js:TJSONObject;

begin
  js:=TJSONObject(TJSONObject.ParseJSONValue(Memo1.Text));
  if js<>nil then
  begin
      ShowMessage(TJSONArray(js.Values['situacao']).ToString);

[datilas]

49 minutos atrás, johnbh3 disse:

Bom dia

 

{"nomeBeneficiario":"PERFILSIS DESENVOLVIMENTO DE SOFTWA","cnpjCpfBeneficiario":"08030107000194","tipoPessoaBeneficiario":"JURIDICA","dataHoraSituacao":"15\/07\/2021 00:00","codigoBarras":"07796869600000010000001112050675100701552434","linhaDigitavel":"07790001161205067510207015524346686960000001000","dataVencimento":"29\/07\/2021","dataEmissao":"14\/07\/2021","seuNumero":"6","valorNominal":10.00,"nomePagador":"BIO MOVEIS E DECORACOES LTDA","emailPagador":"[email protected]","dddPagador":"11","telefonePagador":"44363936","tipoPessoaPagador":"JURIDICA","cnpjCpfPagador":"01281218000124","codigoEspecie":"OUTROS","dataLimitePagamento":"27\/09\/2021","valorAbatimento":0.00,"situacaoPagamento":"BAIXADO","situacao":"PAGO","mensagem":{"linha1":"MULTA DE 3,50 E JUROS DE 0,25 AO DIA APÓS O VENCIMENTO","linha2":"Nosso whatsapp (31) 98856-1070 - nosso site www.perfilsistemas.com.br","linha3":"Boleto emitido através do software GestãoClick - www.gestaoclick.com.br","linha4":"","linha5":""},"desconto1":{"codigo":"NAOTEMDESCONTO","taxa":0.00,"valor":0.00},"desconto2":{"codigo":"NAOTEMDESCONTO","taxa":0.00,"valor":0.00},"desconto3":{"codigo":"NAOTEMDESCONTO","taxa":0.00,"valor":0.00},"multa":{"codigo":"VALORFIXO","data":"2021-07-30","taxa":0.00,"valor":3.50},"mora":{"codigo":"VALORDIA","data":"2021-07-30","taxa":0.00,"valor":0.25},"valorTotalRecebimento":10.00}

 

Estou tentando ler este JSON. Quando eu tenho mais de um NO eu consigo ler os dados do JSON.

 

Eu agora estou precisando pegar a situação do boleto que neste JSON esta como pago.
Tudo tento fazer como se fosse um JSON simples sem no da acess violation 

 

Alguém pode me ajudar com pego a situação do boleto? 

Pessoal,

Deu certo aqui
fiz isto

 

var
  js:TJSONObject;

begin
  js:=TJSONObject(TJSONObject.ParseJSONValue(Memo1.Text));
  if js<>nil then
  begin
      ShowMessage(TJSONArray(js.Values['situacao']).ToString);

não entendi seu problema, mas vc poderia pegar o status assim:

ShowMessage(js.Values['situacao'].ToString);

pois nesse json não tem nenhum array,

mas seu codigo esta funcionando pra mim perfeitamente,

tente explicar melhor seu problema.