JSON Wert zufügen

[creehawk]

Moin Moin.

Kann nicht jemand mal geldis die entsprechenden Zeilen hier posten?

Ich hatte bisher das Forum auch und gerade als Hilfe verstanden, quasi wie ein Handbuch. Sicher ist der Gedanke des Ansporns und Motivation auch ein gute Sache. Aber aus meiner Sicht kann man das auch übertreiben.
Seinerzeit hatte ich hier echt Probleme mit DDSToPDF (DirectDrawSurface). Allerlei Tipps aus der Community haben mich dann tatsächlich motiviert. Mit Hilfe eines Spezialisten habe ich dann die Sache gelöst und einiges gelernt. Aber ich bin hier aus Hobby unterwegs.

geldis hat ja offensichtlich versucht die Sache zu lösen, aber auch ich kenne des Brett vor dem Kopf (jedenfalls die Maserung). Dummerweise habe ich keine Ahnung von JSON sonst würde ich das jetzt aufklären.

Die JSON ist als Beispiel ja weiter oben vorhanden, kann mal jemand so freundlich sein?

creehawk

[Union]

Hier das funktionierende Codefragment.

Delphi-Quellcode:

uses
  System.JSON;

const
  JSONDATA =
    '{"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}';

procedure ProcessJSON;
  procedure InsertCzech(AObject : TJSONValue);
  begin
    TJSONObject(AObject).AddPair('Czech', TJSONNull.Create);
  end;

  var
     LData : TJSONValue;
     LArray : TJSONArray;
     LItem  : TJSONValue;
begin
  LData := TJSONObject.ParseJSONValue(JSONDATA);
  LItem := LData.FindValue('Lapforce');
  InsertCzech(LItem);
  LArray := TJsonArray(LData.FindValue('Score'));
  for LItem in LArray do
    InsertCzech(TJSONObject(LItem));
end;

[geldis]

Guten Morgen.

@Union Vielen und herzlichen Dank.

@creehawk Danke.

geldis