[Creator13]

Здравствуйте!
Помогите пожалуйста с парсингом JSON
Eсть Json ответ Responce от сервера ниже,
Необходимо достать стоимость cost

{
  "num": "1",
  "object": "car",
  "active": 1,
  "state": 0,
  "desc": [
    {
      "model": "audi",
       "price": {
           "currency": "EUR",
           "cost": "8000"
      },
      "color": "red",
      "equipment": "full"
    }
  ],
  "owner": {
    "name": "Ivanov",
    "adress": "First street",
    "house": "45/1"
  },
  "extra": "none"
}

Попробовал своими силам, помогите завершить....

procedure TFMain.Button1Click(Sender: TObject);
var
   JSonObject: TJSONObject;
   JSonArray: TJSONArray;

begin
   try
    JSonObject := TJSONObject.ParseJSONValue(Responce) as JSONObject;
    JSonArray := JSonObject.GetValue('desc') as TJSONArray;
    //.......

     except
         on E: EJSONException  do
         begin
          Showmessage(E.Message);
          end;
     end;

[Electronic_Arts]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

var   JSONObj: ISuperObject; CostValue: string; begin   JSONObj := SO('{"num": "1", "object": "car", "active": 1, "state": 0, "desc": [{"model": "audi", "price": {"currency": "EUR", "cost": "8000"}, "color": "red", "equipment": "full"}], "owner": {"name": "Ivanov", "adress": "First street", "house": "45/1"}, "extra": "none"}');   // Проверяем, существует ли поле "desc" в JSON   if JSONObj['desc'] <> nil then   begin     // Получаем массив объектов desc     if JSONObj['desc'].AsArray.Length > 0 then     begin       // Получаем первый объект в массиве desc       CostValue := JSONObj['desc'][0].S['price.cost'];       // Теперь в CostValue содержится значение "cost"       ShowMessage('Cost: ' + CostValue);     end;   end; end;