Строка Parse JSON для обнаружения ошибки

Я работаю с сервером, ответ которого используется в формате JSON.

когда запрос содержит достоверные данные, они отвечают строкой, подобной этой

{ "данные": { "Результаты": [{ "Отделение": "ACCT590006" }]}}

но если параметры запроса неверны, ответ будет выглядеть следующим образом

{ "ошибка": { "ошибка": [{ "Домен": "глобальная", "причина": "недействительное", "сообщение": "Invalid Params" }], "код": 98865, "сообщение": "Invalid значение параметра" }}

Итак, возникают вопросы, как я могу определить, когда ответ сервера содержит строку с ошибкой, используя объект TJSONObject и дополнительно анализировать JSON для отображения сообщений и кодов ошибок, подобных этому.

Failed reason : invalid 
Message : Invalid params 
Code: 98865 
message : invalid param value.
1 ответ

Я немного поработал с JSON, каждый раз, когда я разбирался в коде (delphi 7). Но я немного искал, и здесь вы можете найти ответ на свой вопрос: http://edn.embarcadero.com/print/40882

и с небольшой адаптацией это должно работать.

С уважением, Radu

licensed under cc by-sa 3.0 with attribution.