const

SOME_JSON =

'{ "postOfficeBox": "123", ' + LINE_SEP +

' "streetAddress": "456 Main St", ' + LINE_SEP +

' "region": "State", ' + LINE_SEP +

' "postalCode": 12345, ' + LINE_SEP +

' "open": true ' + LINE_SEP +

'}';

var

json: TJSONItem;

I: Integer;

street: String;

postal: Int64;

begin

json := ParseJSON(SOME_JSON);

// if you the structure ...

if json.GetString('streetAddress', street) then

WriteLn(street);

if json.GetInt('postalCode', postal) then

WriteLn(postal);

WriteLn(json.Item['streetAddress'].AsString);

WriteLn(json.Item['postalCode'].AsInt);

// or loop over the items

for I := 0 to json.Count - 1 do

begin

WriteLn('Item[', I, ']');

WriteLn(' Key = ', json.key[I]);

WriteLn(' Typ = ', json.Item[I].Typ);

case json.Item[i].Typ of

EJSONType.INT: WriteLn(' Value = ', json.Item[i].AsInt);

EJSONType.FLOAT: WriteLn(' Value = ', json.Item[i].AsFloat);

EJSONType.BOOL: WriteLn(' Value = ', json.Item[i].AsBool);

EJSONType.STR: WriteLn(' Value = ', json.Item[i].AsString);

end;

end;

json.Free();

end;