JSONValue ändern

[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".