delphi parse jsonarray with System.JSON
<p>Using Delphi XE8's <code>System.JSON</code>, I cannot parse a jsonarray</p>
<p><strong>Sample Json</strong>:</p>
<pre><code>{
    &quot;data&quot;:{
        &quot;current_condition&quot;:[
            {
                &quot;cloudcover&quot;:&quot;0&quot;,
                &quot;FeelsLikeC&quot;:&quot;-9&quot;,
                &quot;FeelsLikeF&quot;:&quot;15&quot;,
                &quot;humidity&quot;:&quot;93&quot;,
                &quot;observation_time&quot;:&quot;04:10 AM&quot;,
                &quot;precipMM&quot;:&quot;0.0&quot;,
                &quot;pressure&quot;:&quot;1007&quot;,
                &quot;temp_C&quot;:&quot;-6&quot;,
                &quot;temp_F&quot;:&quot;21&quot;,
                &quot;visibility&quot;:&quot;10&quot;,
                &quot;weatherCode&quot;:&quot;113&quot;,
                &quot;weatherDesc&quot;:[
                    
                ],
                &quot;weatherIconUrl&quot;:[
                    
                ],
                &quot;winddir16Point&quot;:&quot;SE&quot;,
                &quot;winddirDegree&quot;:&quot;130&quot;,
                &quot;windspeedKmph&quot;:&quot;7&quot;,
                &quot;windspeedMiles&quot;:&quot;4&quot;
            }
        ]
    }
}
</code></pre>
<p>using the code:</p>
<pre><code>memores: TStringList;
currcond: TJSONObject;

memores2.Text := http.Get ('url');
JSONObject := TJSONObject.ParseJSONValue(memores2.Text) as TJSONObject;
Memores1.add('current_condition');
JSONObject2 := JSONObject.GetValue('data')   as TJSONObject;
arrayjson := JSONObject2.ParseJSONValue('current_condition')  as TJSONArray;
currcond := arrayjson.Items[0] as TJSONObject;
memores1.Add((currcond.GetValue('cloudcover').Value));
</code></pre>