Delphi JSONValue 获取值

Question

我已经带着我的代码到达这里:

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 年的项目？

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

Answer 1

每个 JSONValue 都是数组的一个“片段”，每个片段都是一个对象。您必须将类型转换为 TJSONObject，然后才能获取值。

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

更多信息可以找到in the doc (如果您使用 10.3，JSON 库已得到改进)