このjsonからすべてのユーザーを取得したいと思います。X-SuperObjectを使用してJSONのネストされた値にアクセスする方法
{
"status": "ok",
"next_max_id": "AQAmA1l9NAQXa",
"sections": [
{
"module": null,
"show_view_all": null,
"title": null,
"users": [
{
"pk": 48165888,
"is_verified": false,
"profile_pic_url": "http://scontent-sit4-1.cdninstagram.com/t51.2885-19/s150x150/17332306_1915592632007479a.jpg",
"full_name": "Jason Giovany Castro Morales",
"is_private": false,
"has_anonymous_profile_picture": false,
"username": "jasongiovanycastromorales",
"profile_pic_id": "14699765111792881_48165888"
}
]
}
]
}
ここで、すべてのユーザー名を取得しようとしました。
procedure TForm2.Button6Click(Sender: TObject);
var
json : ISuperObject;
node : ISuperObject;
item : IMember;
begin
try
json := TSuperObject.Create(list.Text);
for item in json['sections.users'].AsArray do
begin
node := item.AsObject;
Memo4.Lines.Add(node.S['username']);
end;
finally
end;
end;
2回目の試み.. AV!
var
json : ISuperObject;
node : ISuperObject;
item, item2 : IMember;
begin
json := SO(list.Text);
for item in json['sections'].AsArray do
begin
for item2 in json['users'].AsArray do
begin
node := item.AsObject;
Memo1.Lines.Add(node.S['username']);
end;
end;
end;
200名の値は、このJSON である私は何も、時々、AV私はJSONコードwiththeの周りに再生しようとすると、私の質問は値username
を取得するには、正しくこのJSONを解析する方法、であるを取得していませんか?ありがとうございました。
エラー 'ISuperExpression'に 'GetEnumerator'のメンバーが含まれていないか、アクセスできないため、コレクションタイプ 'ISuperExpression'で 'or-inステートメントを操作できません。' –
自分の回答を編集しました。実際に使用する変数に注意を払い、質問を明確に指定する必要があります。 – Triber
私は悪いです、私はX-SuperObjectがSuperObjectへの単なるアップグレードだと思っています。多くのありがとうございました –