[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]

Код:

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;