Em muitos casos precisamos manipular arquivos json e
há situações onde o json que chega para ser manipulado
está contido em uma string.
Muito bem! Como fazer para manipular o mesmo?
Ao menos nas versões mais recentes de Delphi existe a
unit System.JSON que facilita bastante este trabalho.
Vamos ao código:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | uses System.JSON; procedure TForm1.Button1Click(Sender: TObject); var JSonValue : TJSonValue; st : string; Branch : string; begin st := '{"data":{"results":[{"Branch":"ACCT590003"}]}}'; { Convertendo uma string para json object } JsonValue := TJSonObject.ParseJSONValue(st); ShowMessage(JsonValue.ToJSON); { Obtendo um valor dentro do json } Branch := JsonValue.GetValue<string>('data.results[0].Branch'); ShowMessage(Branch); JsonValue.Free; end; |
Assim vimos uma forma simples mas muito efetiva de como
trabalhar com json em Delphi.
Fonte base: https://stackoverflow.com/questions/4350886/how-to-parse-a-json-string-in-delphi/4351618
Dúvida ou sugestões? deixe o seu comentário!
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Você precisa fazer o login para publicar um comentário.
Muito bom. Obrigado por compartilhar conhecimento
Que bom que gostaram pessoal!