JSON Wert zufügen

[geldis]

Hallo allerseits.

Ich hatte schon mal so meine Schwierigkeiten mit JSON und da wurde mir ja prima geholfen.
Jetzt ein unerwartetes neues das hoffentlich letzte Problem . Im Netz und hier und da habe ich gesucht, aber als Kind der XML Welt nur unverständliches Zeug gefunden. Folgende JSON:

Code:

{
  "Version": "1",
  "ID": "Zeptor",
  "IncompatibleIds": ["Jokola"],
  "Dependent": null,
  "Lapforce": {
    "English": "much",
    "French": null,
    "German": "Viel",
    "Italian": null,
    "Japanese": null,
    "Korean": null,
    "Polish": null,
    "Russian": null,
    "Spanish": null,
    "Taiwanese": null
  },
  "Name": "Turandot",
  "Contact": "",
  "Image" : null
}

Ich muss zur Node "Lapforce" schlicht die Sprache Czech - also "Czech": null, - hinzufügen, einfügen, anpappen. Mehr nicht. Kann das jemand mit den Bordmitteln von Delphi 10.4 ausführen?

Ich brauche das nur diese eine Mal und dafür dann JSON studieren ........

geldis

[Union]

Wenn das Objekt als TJSONValue vorliegt:

Delphi-Quellcode:

var LValue : TJSONValue;
LValue := TJSONObject.ParseJSONValue(<Der JSON String>);
TJSONObject(AValue.FindValue('Lapforce')).AddPair('Czech', TJSONNull.Create);

[Uwe Raabe]

Zitat von geldis:

Ich brauche das nur diese eine Mal

Dieser Satz ist vermutlich für einen Großteil des schlechten Codes auf der Welt mitverantwortlich.

[geldis]

@Union

besten Dank, klappt prima. Jetzt weiß ich auch warum das Pair heißt.

Und natürlich bei meinem Glück kommt dann noch was:
Code:
{
"Version": "1",
"ID": "Zeptor",
"IncompatibleIds": ["Jokola"],
"Dependent": null,
"Lapforce": {
"English": "much",
"French": null,
"German": "Viel",
"Italian": null,
"Japanese": null,
"Korean": null,
"Polish": null,
"Russian": null,
"Spanish": null,
"Taiwanese": null
},
"Score": [
{
"English": "much",
"French": null,
"German": "Viel",
"Italian": null,
"Japanese": null,
"Korean": null,
"Polish": null,
"Russian": null,
"Spanish": null,
"Taiwanese": null
}
],
"Name": "Turandot",
"Contact": "",
"Image" : null
}

</Code>

Die Node Score ist mit eckigen Klammern versehen, vermutlich also sowas wie ein Array. Er fügt den "Czech" Wert dazu, NICht die eckige Klammer. Was jetzt wenn ich nochmal fragen darf.

geldis


@UweRaabe

Danke für die Hilfe.

[Union]

Die TJSONValue Werte liegen in einem TJSONArray vor.

[himitsu]

oder der rechte Teil (Value) vom Pair

[geldis]

Nach absolviertem Broterwerb : Da bin ich wieder.

Also ein Array, sehr schön. Am Beispiel oben orientiert würde ich also ein TJSONArray deklarieren

Delphi-Quellcode:

Var
var LValue : TJSONValue;
KArray : TJSonArray;

....

LValue := TJSONObject.ParseJSONValue(<Der JSON String>);
KArray := TJsonArray(LValue.FindValue('Score');

Jetzt habe ich eine Array. Und dann bin ich mal wieder am Ende.

geldis

[geldis]

Moin Moin.

Nützt mir jetzt auch nichts. Ich kriege den Bogen nicht raus.

geldis

[Union]

Auf die einzelnen TJSONValue im TJSONArray greifst Du über die Get - Methode zu. Die erhaltenen Objekte verarbeitest Du analog mit AddPair.

Ich kann Dir nur empfehlen, dich in die Delphi JSON Frameworks einzuarbeiten. Falls Du künftig noch länger programmieren wirst, kommst Du nämlich um JSON (und u.U. BSON, Protocol Buffers etc.) nicht herum.

[geldis]

In meiner Gruppe hier haben für für jeden Berecih eine Spezialistn. Ich amüsiere mich mit Fortran, Cobol und XML (IT Studium 1988), einer mit DirectX, einer mit SQL, einer mit SAP+JSON usw. Und ausgerechnet der JSON Mensch ist krank, sonst hätte ich hier gar nicht gefragt. Und für das was wir hier machen brauchten wir JSON bisher nur in Extremfällen. Insofern lasse ich das dann links liegen.

Mir erschließt sich das Gefummel mit Objekten und Dutzenden von Typen nicht. Und ich sehe keinen Vorteil gegenüber XML.

Naja, ich lass das jetzt mal alles liegen und frage auch besser nicht mehr. Allein der Kommentar von Herrn Raabe hat mit schon gereicht. Und rumrätseln mag ich auch nicht.

geldis