JSON-Objekt/Array zu "normalem" Objekt/Array

[Stevie]

Unter Zuhilfenahme der Anleitung auf der Google Code Seite.

Delphi-Quellcode:

var
  s: string;
  o: ISuperObject;
  i: Integer;
begin
  s := '{ "accounting" : [ ' +
    '{ "firstName" : "John", ' +
      '"lastName"  : "Doe", ' +
      '"age"       : 23 }, ' +
    '{ "firstName" : "Mary", ' +
      '"lastName"  : "Smith", ' +
      '"age"       : 32 } ' +
      '] }';

  o := SO(s).O['accounting'];

  for i := 0 to o.AsArray.Length - 1 do
    ShowMessage(o.AsArray[i].AsString);