А толку...
Допустим первое значение я парсю так
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 | 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;
|
С значениями вложенными в под объект это не работает