Delphi: JSON array

Versucht zu verstehen, JSON, in Delphi. Mit dem Modul "DBXJSON.pas". Wie es zu benutzen, um so ein array:

Array:[
        {"1":1_1,"1_2_1":1_2_2},
        ...,
   ]

Tun:

JSONObject:=TJSONObject.Create;
JSONArray:=TJSONArray.Create();
...
JSONArray.AddElement(TJSONObject.Create(TJSONPair.Create('1','1_1')));
JSONArray.AddElement(TJSONObject.Create(TJSONPair.Create('1_2_1','1_2_2')));
JSONObject.AddPair('Array',JSONArray);

aber dieses:

{
"Array":[
{"1":"1_1"},{"1_2_1":"1_2_2"}
]
}

Bitte Hilfe!!!
Danke!

  • Es gibt offensichtliche Vorteile der Verwendung von was auch immer geliefert wird, die mit Delphi, aber wenn du gehst zu tun eine Menge von JSON-Zeug, Sie sollten wirklich einen Blick auf SuperObject. Es ist genial auf so viele Arten. code.google.com/p/superobject/source/checkout
  • Sie behaupten zu wollen, einen Wert in das Objekt der 1_1. Das ist kein Gültiger Javascript-Wert. Numerische Literale sind nicht enthalten darf, unterstreicht. (Sind Sie erlaubt, in Java und Perl, aber nicht Javascript). Bitte klären Sie, was Sie wirklich wollte, weil Ihre Frage scheint sich gerade, was Sie wollen, ist nicht wirklich JSON überhaupt, so sollten Sie nicht über eine JSON-Bibliothek.
InformationsquelleAutor dedoki | 2012-05-11
  1. 10

    Code, die Sie oben gepostet ist, ist nicht korrekt. Sie haben erstellt ein JSON-Array und versuchen, add-pair-Elemente, um das array. Aber, anstatt Paare zu array hinzufügen JSON Objects auf dieses array, und diese Objekte enthalten Ihre Paare.

    hier ist ein Beispielcode um das problem zu lösen:

    program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils, dbxjson;

var jsobj, jso : TJsonObject;
    jsa : TJsonArray;
    jsp : TJsonPair;
begin
  try
    //create top-level object
    jsObj := TJsonObject.Create();
    //create an json-array
    jsa := TJsonArray.Create();
    //add array to object
    jsp := TJSONPair.Create('Array', jsa);
    jsObj.AddPair(jsp);

    //add items to the _first_ elemet of array
    jso := TJsonObject.Create();
    //add object pairs
    jso.AddPair(TJsonPair.Create('1', '1_1'));
    jso.AddPair(TJsonPair.Create('1_2_1', '1_2_2'));
    //put it into array
    jsa.AddElement(jso);

    //second element
    jso := TJsonObject.Create();
    //add object pairs
    jso.AddPair(TJsonPair.Create('x', 'x_x'));
    jso.AddPair(TJsonPair.Create('x_y_x', 'x_y_y'));
    //put it into array
    jsa.AddElement(jso);

    writeln(jsObj.ToString);
    readln;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

    - und Ausgang ist

    {"Array":[
     {"1":"1_1","1_2_1":"1_2_2"},
     {"x":"x_x","x_y_x":"x_y_y"}
  ]
}
    InformationsquelleAutor teran
  2. 0

    Gleiche Antwort wie @teran:

    ändern:

    JSONArray.AddElement(TJSONObject.Create(TJSONPair.Create('1','1_1')));
JSONArray.AddElement(TJSONObject.Create(TJSONPair.Create('1_2_1','1_2_2')));

    zu:

    JSONArray.AddElement(TJSONPair.Create('1','1_1'));
JSONArray.AddElement(TJSONPair.Create('1_2_1','1_2_2'));

    Cheers.

    • Die AddElement Methode erwartet ein TJSONValue, aber TJSONPair ist keine Unterklasse von TJSONValue, also dein vorgeschlagener code gar nicht kompilieren. Die gewünschte Ausgabe ist das array einen Wert enthalten. Sie versuchen, add-Paaren direkt in das array, aber Paare sind nicht Werte. Ja, wie ist Ihre Antwort die gleiche wie Teran ist?
    • Kennedy Ok, hab einen Fehler, war die Idee, entfernen Sie die extra-level-Objekt
    InformationsquelleAutor umlcat
Schreibe einen Kommentar