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库已得到改进）

Delphi JSONValue获得价值

1 个答案: