delphi - Delphi JSONValue获得值(value)

我已经到达我的代码了：

JSONArray := TJSONObject.ParseJSONValue(Text) as TJSONArray;

for var JSONValue in JSONArray do
  begin
    ListBox1.Items.Add(JSONValue.Value);
  end;

请注意，Text := '[{"jahre":2},{"jahre":4},{"jahre":15}]'是有效的JSON格式。如何获得列表中的2019年和2018年物品？

使用上面的代码，我在列表框中得到了白色项目。

最佳答案

每个JSONValue是数组的“片段”，每个片段都是一个对象。您必须将类型转换为TJSONObject并且您可以获取值。

ListBox1.Items.Add((JSONValue as TJSONObject).GetValue('jahre').ToString);

可以在in the doc中找到更多信息（如果您使用的是10.3，则JSON库已得到改进）

关于delphi - Delphi JSONValue获得值(value)，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/54173859/