Como ler um arquivo Json em Delphi

14/12/2021

0

Boa tarde.

Tenho o seguinte arquivo abaixo.
Não tenho experiência em Json, estou começando a estudar, porém não consigo pegar todas as informações contidas nesse arquivo.
Alguém teria uma ideia de como ler esse arquivo.

Desde ja agradeço.

Abaixo o código.
{
"listaNcm" : [ {
"codigoNcm" : "0101.21.00",
"listaAtributos" : [ {
"codigo" : "ATT_1",
"definicao" : "Lista de destaques de exportação da NCM 01012100",
"nomeApresentacao" : "Destaque",
"orientacaoPreenchimento" : "Escolher apenas um Destaque",
"formaPreenchimento" : "LISTA_ESTATICA",
"modalidade" : "Exportação",
"obrigatorio" : true,
"dataInicioVigencia" : "2014-10-23",
"dataFimVigencia" : "",
"dominio" : [ {
"codigo" : "01",
"descricao" : "EXCETO DE ESPÉCIES DOMÉSTICAS, CONFORME PORTARIA IBAMA 93/98"
}, {
"codigo" : "99",
"descricao" : "DEMAIS"
} ],
"objetivos" : [ {
"codigo" : 3,
"descricao" : "Tratamento administrativo"
} ],
"orgaos" : [ "IBAMA" ],
"atributoCondicionante" : false,
"condicionados" : [ ],
"multivalorado" : false
}, {
"codigo" : "ATT_2263",
"nomeApresentacao" : "Detalhamento IBAMA",
"formaPreenchimento" : "LISTA_ESTATICA",
"modalidade" : "Importação",
"obrigatorio" : true,
"dataInicioVigencia" : "2018-09-26",
"dataFimVigencia" : "",
"dominio" : [ {
"codigo" : "01",
"descricao" : "EXCETO ESPÉCIES DOMESTICAS, CONFORME PORTARIA IBAMA 93/98"
}, {
"codigo" : "02",
"descricao" : "NÃO SE APLICA"
} ],
"objetivos" : [ {
"codigo" : 3,
"descricao" : "Tratamento administrativo"
}, {
"codigo" : 7,
"descricao" : "Produto"
} ],
"orgaos" : [ "IBAMA" ],
"atributoCondicionante" : false,
"condicionados" : [ ],
"multivalorado" : false
} ]
}, {
"codigoNcm" : "0101.29.00",
"listaAtributos" : [ {
"codigo" : "ATT_2",
"definicao" : "Lista de destaques de exportação da NCM 01012900",
"nomeApresentacao" : "Destaque",
"orientacaoPreenchimento" : "Escolher apenas um Destaque",
"formaPreenchimento" : "LISTA_ESTATICA",
"modalidade" : "Exportação",
"obrigatorio" : true,
"dataInicioVigencia" : "2014-10-23",
"dataFimVigencia" : "",
"dominio" : [ {
"codigo" : "01",
"descricao" : "EXCETO DE ESPÉCIES DOMÉSTICAS, CONFORME PORTARIA IBAMA 93/98"
}, {
"codigo" : "99",
"descricao" : "DEMAIS"
} ],
"objetivos" : [ {
"codigo" : 3,
"descricao" : "Tratamento administrativo"
} ],
"orgaos" : [ "SECEX", "IBAMA" ],
"atributoCondicionante" : false,
"condicionados" : [ ],
"multivalorado" : false
}, {
"codigo" : "ATT_2263",
"nomeApresentacao" : "Detalhamento IBAMA",
"formaPreenchimento" : "LISTA_ESTATICA",
"modalidade" : "Importação",
"obrigatorio" : true,
"dataInicioVigencia" : "2018-09-26",
"dataFimVigencia" : "",
"dominio" : [ {
"codigo" : "01",
"descricao" : "EXCETO ESPÉCIES DOMESTICAS, CONFORME PORTARIA IBAMA 93/98"
}, {
"codigo" : "02",
"descricao" : "NÃO SE APLICA"
} ],
"objetivos" : [ {
"codigo" : 3,
"descricao" : "Tratamento administrativo"
}, {
"codigo" : 7,
"descricao" : "Produto"
} ],
"orgaos" : [ "IBAMA" ],
"atributoCondicionante" : false,
"condicionados" : [ ],
"multivalorado" : false
} ]
}

]
}
Osvaldo Anjo

Osvaldo Anjo

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar