更新TJSONArray

Question

如何正确更新json值？这是我尝试过的，但没有运气：

TJSONArray *Data;
Data = (TJSONArray*) TJSONObject::ParseJSONValue(TEncoding::ASCII->GetBytes(json),0);
TJSONObject *obj = (TJSONObject*) Data->Get(0);
TJSONArray *arr = (TJSONArray*) obj->Get("tokens");
arr = (TJSONArray*) TJSONObject::ParseJSONValue(TEncoding::ASCII->GetBytes(arrjson),0);

数据：

[{"source":"aaaa","cluster":"1","tokens":[{},{}]}, {"source":"bbbb","cluster":"2","tokens":[{},{}]}] 

Answer 1

不幸的是，TJSONArray本身并不允许您用新值替换现有元素（为什么？谁知道）。您所能做的就是添加和删除元素以及ENUMERATE元素。

由于您的数组包含TJSONObject实例，要用新对象替换此类元素，您必须：

1. 从数组中删除所有元素，包括并遵循所需的元素索引，然后添加所需类型的新对象，然后重新添加已删除的元素（按其先前的顺序）。
2. 构建一个全新的TJSONArray，然后根据需要添加对象，从需要的前一个TJSONArray复制值。然后你可以获得TJSONPair字段的tokens并将新的TJSONArray设置为JsonValue。

如果这不符合您的喜好，那么请寻找支持您感兴趣的编辑功能的第三方JSON库。