How to parse a JSON string in Delphi?

Question

How can I parse the JSON string

{\"data\":{\"results\":[{\"Branch\":\"ACCT590003\"}]}}

using the T

Answer 1

Using SuperObject Library https://github.com/hgourvest/superobject/

var json: iSuperObject;
    data: string;

begin
  json := SO('{"data":{"results":[{"Branch":"ACCT590003"}]}}'); // shorthand
// or equal:  JSON := TSuperObject.ParseString('{"data":{"results":[{"Branch":"ACCT590003"}]}}');

  data := json.S['data.results[0].Branch'];

  WriteLn('Result is: ', data);
end.