掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
APIから取得したJSONから特定の値を取得する方法について (ID:150928)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Pointが配列か配列でないかを確認して分岐処理すれば良いのかもです。 procedure TForm1.Button1Click(Sender: TObject); var jv1:TJSONValue; jv2:TJSONValue; st:String; i:Integer; begin jv1:=TJSONObject.ParseJSONValue(Memo1.Lines.Text) as TJsonValue; jv1:=jv1.GetValue<TJsonValue>('ResultSet'); jv1:=jv1.GetValue<TJsonValue>('Point'); if jv1 is TJSONArray then //ここで配列かどうかを判断 begin for i := 0 to TJsonArray(jv1).Count-1 do begin jv2:=TJsonArray(jv1).Items[i]; jv2:=jv2.GetValue<TJSONValue>('Station'); st:=jv2.GetValue<String>('Name'); showmessage(st); end; end else begin jv1:=jv1.GetValue<TJsonObject>('Station'); st:=jv1.GetValue<String>('Name'); showmessage(st); end; end; はずしていたらすいません。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.