JSON когда не знаешь имя тега -как быть?

[fsdb]

Добрый день!

Допустим я имеюследующую структуру как описана ниже, но не знаю заранее название тега - например firstName. как мне получить все названия тегов и их значения. спасибо

{
   "firstName": "Александр",
   "lastName": "Юрьевич",
   "phoneNumbers": "812 123-1234"
 
}

 

g1:=0;
while g1<=JS.Count-1 do begin


body1:=JS.Pairs[g1].;
//имя переменной


//body2:=JS.GetValue(body1).Value;
//значение переменной

Synchronize(UpdateVariable);
//передаем body1, body2 в тело функции

inc(g1);
end;

 

[sinuke]

если воспользоваться XSuperObject, то можно вот так:

uses XSuperObject;

...

var
  jsonObj: ISuperObject;
begin
  jsonObj := SO('{"firstName": "Александр","lastName": "Юрьевич","phoneNumbers": "812 123-1234"}');
  jsonObj.First;
  while not jsonObj.EoF do
    begin
      Memo1.Lines.Add(jsonObj.CurrentKey + '  -  ' + jsonObj.S[jsonObj.CurrentKey]);
      jsonObj.Next;
    end;
end;

Изменено 19 августа, 2017 пользователем sinuke