 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
mastersoftware
Aprendiz
Registrado: Sexta-Feira, 30 de Mai de 2008
Mensagens: 187
|
 Enviada: Ter Abr 28, 2020 6:25 pm Assunto: Percorrer todos nós Json |
 |
|
Boa tarde pessoal,
Gostaria de um apoio de vocês.
Tenho o seguinte arquivo Json.
{"symbol":"KYCT","status":"ACTIVE"},{"symbol":"UNDA","status":"ACTIVE"},
{"symbol":"QUIA","status":"ACTIVE"}
Tenho a seguinte rotina para leitura que carrega este arquivo :
JsonValue := TJSONObject.ParseJSONValue(lResponse.DataString);
Até ai tudo bem .
Assim eu consigo pegar os valores.
JsonValue.GetValue<string>('symbols[0].symbol')
JsonValue.GetValue<string>('symbols[0].status')
Porém acontece que a posição [0], é a primeira posição Symbol que tem no arquivo, e vou precisar percorrer todos os symbols para pegar a propriedade status, porém não imagino a forma que eu poderia percorrer este aquivo texto, analisando todos nós.
Dei uma pesquisada mas não consegui encontrar algo, podem me ajudar por favor ?
Obrigado.
Minha dificuldade é a que como consigo percorrer todos os nós 'Symbols' |
|
| Voltar ao Topo |
|
 |
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9098
Localização: Sinop-MT
|
|
| Voltar ao Topo |
|
|
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
| Enviada: Qua Abr 29, 2020 10:20 am Assunto: |
|
|
Veja um exemplo:
| Código: | var
i: Integer;
vTextoJson: string;
vArrayJson: TJSONArray;
begin
vTextoJson := '{"symbol":"KYCT","status":"ACTIVE"},{"symbol":"UNDA","status":"ACTIVE"},{"symbol":"QUIA","status":"ACTIVE"}';
vArrayJson := TJSONObject.ParseJSONValue('[' + vTextoJson + ']') as TJSONArray;
for i := 0 to Pred(vArrayJson.Size) do
ShowMessage(TJSONObject(vArrayJson.Get(i)).Get('symbol').JsonValue.Value);
end; |
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
