Delphi中获取JSON值

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项？

使用上述代码，我可以在列表框中获得白色项目。

- Rosanna Trevisan

Answer 1

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

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

您可以在文档中找到更多信息（如果您正在使用10.3，则JSON库已得到改进）

- Alberto Miola