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);

可以在文檔中找到更多信息（如果您使用的是 10.3，則 JSON 庫已得到改進）