Como fazer um parse a JSON string in Delphi?

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!