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

[Durek]

Also ich habe vorher "TSuperObject" gehabt, hab den in TSuperArray geändert aber da meckert er wenn ich

obj := TSuperObject.parseString(PWideChar(maps[i]),true);

(in maps[i] steckt der JSON-String)

anwende.

Wenn ich
obj := TSuperArray.parseString(PWideChar(maps[i]),true);
versuche, meckert er dass es den Bezeichner parseString nicht gibt.


mit
obj := TSuperArray(TSuperObject.parseString(PWideChar(map s[i]),true));

spuckt er mir bei obj.Length "4599200" Ist aber viel zu hoch.

[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);

[Durek]

Die Endung .AsString hat mir gefehlt. Vielen Dank mit dieser Änderung kann ich schon viel anfangen