我正在尝试创建如下所示的JSON:
{ "guestlist": ["alice","bob","charlie"] }
我看到用于填充JSON数组的典型示例如下所示:
var
jsobj: TJsonObject;
jso : TJsonObject;
jsa : TJsonArray;
jsp : TJsonPair;
begin
jsObj := TJsonObject.Create();
jsa := TJsonArray.Create();
jsp := TJSONPair.Create('guestlist', jsa);
jsObj.AddPair(jsp);
jso := TJsonObject.Create();
jso.AddPair(TJSONPair.Create('person', 'alice'));
jsa.AddElement(jso);
jso := TJsonObject.Create();
jso.AddPair(TJSONPair.Create('person', 'bob'));
jsa.AddElement(jso);
jso := TJsonObject.Create();
jso.AddPair(TJSONPair.Create('person', 'charlie'));
jsa.AddElement(jso);
end;
但这会产生这样的结果:
{ "guestlist": [{"person":"alice"},{"person":"bob"},{"person":"charlie"}] }
如何将单个值添加到数组而不是一对?我在TJsonObject
的文档中没有看到关于如何执行此操作的内容,
答案 0 :(得分:9)
这实际上比你做得更简单。 TJSONArray
可以很高兴地包含任何TJSONValue
元素,因此解决方案非常简单。
program Project1;
{$APPTYPE CONSOLE}
uses
JSON;
var
LJObj : TJSONObject;
LGuestList : TJSONArray;
begin
LGuestlist := TJSONArray.Create();
LGuestList.Add('alice');
LGuestList.Add('bob');
LGuestList.Add('charlie');
LJObj := TJSONObject.Create;
LJObj.AddPair(TJSONPair.Create('guestlist', LGuestList));
WriteLn(LJObj.ToString);
ReadLn;
end.
产生输出:
{"guestlist":["alice","bob","charlie"]}
答案 1 :(得分:4)
以防你有兴趣看一个替代方案:我创建jsonDoc,主要是因为我喜欢COM接口和OleVariants,并且不喜欢长的重载列表。然后上面的代码可能是这样的:
JSON(['guestlist',
VarArrayOf([JSON(['person','alice']),
JSON(['person','bob']),
JSON(['person','charlie'])
])
])