Исправление Ошибок Доступа: Работа с JSON в Delphi

Delphi , Синтаксис , Массивы

Вопрос работы с JSON-структурами в Delphi может стать настоящим испытанием для разработчика, особенно когда речь идет о массивах. В данной статье мы рассмотрим типичную проблему, с которой сталкиваются пользователи при попытке парсинга JSON-массивов, а также предложим исправленный вариант кода.

Проблема

Разработчик столкнулся с ошибкой доступа при попытке парсинга JSON-массива, который имеет следующий вид:

[
  [
    "A1",
    "A2",
    "A3"
  ],
  [
    "B1",
    "B2",
    "B3"
  ],
  // и так далее
]

Пример кода, который вызывает ошибку:

procedure TForm1.Test;
var
  i: Integer;
  Value, A: String;
  jValue: TJSONValue;
  JSonValue: TJSONValue;
  JArray: TJSONArray;
begin
  jValue := RESTResponse1.JSONValue;
  JArray := TJSonObject.ParseJSONValue(Value) as TJSONArray; // Ошибка здесь
  for i := 0 to JArray.Count - 1 do
    A := JArray.Items[i].Value; // Ошибка доступа
end;

Анализ проблемы

Первым делом стоит использовать отладчик для выяснения точного места возникновения ошибки. Возможно, проблема кроется в неправильном использовании методов класса TJSonObject или в ошибках, связанных с управлением памятью.

Исправление

Подтвержденное решение заключается в правильном преобразовании TJSONValue в TJSONArray. Важно понимать, что каждый элемент массива также является массивом, и его необходимо преобразовать отдельно. Пример исправленного кода:

procedure TForm1.Test1;
var
  I: Integer;
  Value, A: String;
  JValue: TJSONValue;
  JSonValue1, JSonValue2: TJSonValue;
  JArray, JArr: TJSONArray;
begin
  Value := '[["A1","A2","A3"],["B1","B2","B3"]]';
  JSonValue1 := TJSonObject.ParseJSONValue(Value);
  try
    JArray := JSonValue1 as TJSONArray;
    for JSonValue2 in JArray do
    begin
      JArr := JSonValue2 as TJSONArray;
      for var item in JArr do
        ShowMessage(item.Value); // Вывод каждого элемента массива
    end;
  finally
    JSonValue1.Free;
  end;
end;

Необходимо также не забывать освобождать ресурсы, выделенные под TJSONValue, который возвращается функцией ParseJSONValue. Для этого используется метод Free().

Заключение

При работе с JSON в Delphi важно внимательно обращать внимание на типы данных и корректно их обрабатывать, особенно при работе с вложенными структурами. Использование отладчика и правильное управление памятью помогут избежать ошибок доступа и сделают процесс парсинга JSON более комфортным.

Создано по материалам из источника по ссылке.

Описание типичной ошибки доступа при работе с JSON-массивами в Delphi и предоставление исправленного кода для корректного парсинга JSON-структур.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Массивы ::