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