Delphi / SuperObject - Accessing Subnodes

Question

I have the following JSON from my server:

{
   "userid":"12",
   "username":"TestChar",
   "logged":"yes",
   "status":"Premium User",
   "areas":{
      "SERVICEAREA_XX1":{
         "id":"1",
         "area":"SERVICEAREA_XX1",
         "version":"3000",
         "usr_group":"0"
      },
      "SERVICEAREA_XX2":{
         "id":"2",
         "area":"SERVICEAREA_XX2",
         "version":"31000",
         "usr_group":"0"
      },
      "SERVICEAREA_XX3":{
         "id":"3",
         "area":"SERVICEAREA_XX3",
         "version":"2000",
         "usr_group":"1"
      }
   }
}

With SuperObjects i can get the count of "SERVICEAREA"'s with

ob['areas'].AsObject.count

How can i now get access to the elements of the different "SERVICEAREA"'s?

Thanks for your help...

score 12 · Answer 1 · edited Jul 25 '13 at 13:53

12

you can access elements of an array using a for ... in loop:

var
  item: ISuperObject;
begin
  for item in ob['areas'] do ...

or without an enumerator, using a 'normal' for loop:

var
  idx: Integer;
  item: ISuperObject;
begin
  for idx := 0 to ob['areas'].AsArray.Length - 1 do
    item := ob['areas'].AsArray[idx];

edited Jul 25 '13 at 13:53

Jan Doggen

8,799
13
70
144

answered Oct 02 '12 at 05:54

Marjan Venema

19,136
6
65
79

but then item contains: { "SERVICEAREA_XX1":{ "id":"1", "area":"SERVICEAREA_XX1", "version":"3000", "usr_group":"0" } and sry but how to acces there area or version then? – Michael Grenzer Oct 02 '12 at 12:35

score 9 · Accepted Answer · answered Oct 02 '12 at 16:08

Marjan has the answer for you. Here is a little more information how to access the item properties with an example:

var
  item: ISuperObject;
...
for item in ob['areas'] do
begin
  WriteLn(item['id'].AsInteger);
  WriteLn(item['area'].AsString);
  WriteLn(item['version'].AsInteger);
end;

score 0 · Answer 3 · answered Feb 13 '15 at 12:15

0

use this code If you want to access key/value(like Javascriptfor..in)

 if ObjectFindFirst(JsonData, ite) then
    with JsonData.AsObject do
    repeat
      PutO(ite.key, ite.val.Clone);
    until not ObjectFindNext(ite);
    ObjectFindClose(ite);

answered Feb 13 '15 at 12:15

MajidTaheri

3,813
6
28
46

Delphi / SuperObject - Accessing Subnodes

3 Answers3

Linked