如何在 Delphi 10 中使用 ISuperObject 解析 json 文件

Question

我正在尝试使用 ISuperObject 解析 JSON 文件。我的 JSON 文件如下所示：

{"status": "ok", "follows": {"count": 868, "page_info": {"has_previous_page": false, "start_cursor": null, "end_cursor": "SbXc6VJsoeTs", "has_next_page": true}, "nodes": [{"username": "username1", "requested_by_viewer": false, "followed_by_viewer": true, "profile_pic_url": "URL link", "full_name": "name", "is_verified": false, "id": "ID"}, {"username": "username2", "requested_by_viewer": false, "followed_by_viewer": true, "profile_pic_url": "URL link", "full_name": "username2", "is_verified": false, "id": "ID"}, {"username": "_username3", ...]}

我希望在备忘录中列出所有 username 值。

这是我尝试过的：

var
 json         : ISuperObject;
 row_item     : ISuperObject;
begin
  json := TSuperObject.ParseFile('C:\json.txt', TRUE); 
  for row_item in json['nodes'] do 
  begin
    Memo1.Lines.Add(elements_itemS['usernames']); 
  end;
end;

我在for 循环中遇到访问冲突。有什么想法吗？

Answer 1

代码应该看起来更像这样：

var
  json         : ISuperObject;
  node         : ISuperObject;
  item         : IMember;
begin
  json := TSuperObject.ParseFile('C:\json.txt', TRUE); 
  for item in json.O['follows'].A['nodes'] do 
  begin
    node := item.AsObject;
    Memo1.Lines.Add(node.S['username']); 
  end;
end;

或者这个：

var
  json         : ISuperObject;
  node         : ISuperObject;
  item         : IMember;
begin
  json := TSuperObject.ParseFile('C:\json.txt', TRUE); 
  for item in json['follows.nodes'].AsArray do 
  begin
    node := item.AsObject;
    Memo1.Lines.Add(node.S['username']); 
  end;
end;