Здравствуйте!
Помогите пожалуйста с парсингом JSON
Eсть Json ответ Responce от сервера ниже,
Необходимо достать стоимость cost
Код HTML:
{
"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"
}
Попробовал своими силам, помогите завершить....
Код HTML:
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;