[pikabu]

А толку...
Допустим первое значение я парсю так

Код:

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;

С значениями вложенными в под объект это не работает