JSONValue ändern

[Codehunter]

Moin!

Montag früh und massiver Weekend-Lag

Ich habe ein geparstes JSON-Object, zum Beispiel so:

Code:

{
  "value":"foo"
}

und möchte darin den Wert von "value" auf "bar" ändern. Das Ganze habe ich als TJSONObject vorliegen. Das Ding kann ich via Typecast zu TJSONString wunderbar auslesen, aber schreiben find ich spontan keine Lösung (TJSONString.Value ist readonly)

Grüße
Cody

[Der schöne Günther]

Das value/foo-Paar entfernen und ein neues hinzufügen?

Delphi-Quellcode:

procedure p();
const
   input = '{"value":"foo"}';
var
   jsonObject: TJSONObject;
begin
   jsonObject := TJSONObject.ParseJSONValue(input) as TJSONObject;
   try
      jsonObject.RemovePair('value').Free();
      jsonObject.AddPair('value', 'bar');
      // WriteLn( jsonObject.ToJSON() );
   finally
      jsonObject.Destroy();
   end;
end;

[Codehunter]

Zitat von Der schöne Günther:

Das value/foo-Paar entfernen und ein neues hinzufügen?

Delphi-Quellcode:

procedure p();
const
   input = '{"value":"foo"}';
var
   jsonObject: TJSONObject;
begin
   jsonObject := TJSONObject.ParseJSONValue(input) as TJSONObject;
   try
      jsonObject.RemovePair('value').Free();
      jsonObject.AddPair('value', 'bar');
      // WriteLn( jsonObject.ToJSON() );
   finally
      jsonObject.Destroy();
   end;
end;

Tja, RemovePair funktioniert, AddPair nicht. Das Endergebnis ist dann um den betreffenden Wert ärmer. Eine Fehlermeldung gibts nicht, es passiert "einfach nur nix".

[TiGü]

Zitat von Codehunter:

Tja, RemovePair funktioniert, AddPair nicht. Das Endergebnis ist dann um den betreffenden Wert ärmer. Eine Fehlermeldung gibts nicht, es passiert "einfach nur nix".

Im reinen Consolen-Testprojekt geht es doch?
Meinste in deinem Produktiv-Quelltext?

Delphi-Quellcode:

program Project5;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Json;

procedure p;
const
  input = '{"value":"foo"}';
var
  jsonObject: TJSONObject;
begin
  jsonObject := TJSONObject.ParseJSONValue(input) as TJSONObject;
  try
    WriteLn('Vorher: ', jsonObject.ToJSON);
    jsonObject.RemovePair('value').Free;
    jsonObject.AddPair('value', 'bar');
    WriteLn('Nachher: ', jsonObject.ToJSON);
  finally
    jsonObject.Free;
  end;
end;

begin
  try
    p;
  except
    on E: Exception do
      WriteLn(E.ClassName, ': ', E.Message);
  end;
  Readln;

end.

[Uwe Raabe]

Zitat von TiGü:

Im reinen Consolen-Testprojekt geht es doch?

Kann ich bestätigen.

[Der schöne Günther]

Langsam bekomme ich das Gefühl dass in "Tokyo" wieder ordentlich gedreht wurde damit einem nicht langweilig wird.

[Codehunter]

Kommando zurück! Es geht doch. Nur weil wie ich schon vermutete durch Add/Remove die Reihenfolge geändert wird, steht der geänderte Wert nun ganz am Ende und nicht da wo er ursprünglich war. Mein Fehler also!

[Der schöne Günther]

Hör auf dir abzugewöhnen darauf zu achten wie es aussieht, das sind doch nur Daten

[Uwe Raabe]

Man kann den Value eines TJSONString nicht ändern, nur ergänzen mit AddValue oder neu erzeugen und den Wert bei Create mitgeben. Wenn der JSONString ein Teil eines JSONObjects ist, kannst du das gesamte Pair mit RemovePair/AddPair austauschen.

Es sieht irgendwie so aus, als wolltest du JSON anders verwenden als vorgesehen.

[Der schöne Günther]

Ist ja nichts unanständiges dabei an diesem "Dokument" sich etwas herauszusuchen, dann ändern zu wollen und dann zurückzuspeichern. Hat man sich wahrscheinlich mit der Standard XML-Bibliothek so angewöhnt.

Ich lese immer komplett ein und schreibe später von neu auf zurück. Das ist immer am einfachsten