А толку...
Допустим первое значение я парсю так
Код:
var
JSON: TJSONObject;
JSONArray: TJSONArray;
i: Integer;
begin
JSON := TJSONObject.ParseJSONValue(Memo.Lines.Text) as TJSONObject;
Memo.Text:='';
JSONArray := TJSONArray(JSON.Get('rows').JsonValue);
for i := 0 to JSONArray.Size - 1 do
begin
Memo.Lines.Add(TJSONPair(TJSONObject(JSONArray.Get(i)).Get('name')).JsonValue.Value);
end;
end;
С значениями вложенными в под объект это не работает