Получение числа элементов в JSON-массиве с помощью Delphi

Delphi , Компоненты и Классы , Библиотеки компонент

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

Шаг 1: Парсинг JSON

Перед тем как начать итерацию по массиву, необходимо правильно парсить JSON-строку. Это позволит избежать ошибок доступа к памяти, как это было в примере пользователя Marcel.

var
  JsonValue: TJSonValue;
  JsonArray: TJsonArray;
  // Другие переменные...
begin
  JsonValue := TJSONObject.ParseJSONValue(Memo1.Text);
  if Assigned(JsonValue) then
  try
    // Продолжение кода...
  finally
    JsonValue.Free;
  end;
end;

Шаг 2: Итерация по массиву

После парсинга JSON-строки в переменную JsonValue, проверяем, является ли она массивом, и если да, то получаем количество элементов с помощью свойства Count.

if JsonValue is TJSONArray then
begin
  JsonArray := JsonValue as TJSONArray;
  for var i := 0 to JsonArray.Count - 1 do
  begin
    // Работа с элементами массива...
  end;
end;

Шаг 3: Обращение к элементам массива

Внутри цикла можно обращаться к каждому элементу массива как к объекту, извлекая необходимые значения.

var
  JsonObject: TJSonObject;
begin
  JsonObject := JsonArray.Items[i] as TJSonObject;
  // Извлечение значений из объекта...
end;

Пример полного кода

Объединяя все шаги, получаем следующий рабочий пример:

var
  JsonValue: TJSonValue;
  JsonArray: TJSONArray;
  JsonObject: TJSonObject;
  id, name, description, sku, price: string;
  i, j: integer;
begin
  JsonValue := TJSONObject.ParseJSONValue(Memo1.Text);
  if Assigned(JsonValue) then
  try
    if JsonValue is TJSONArray then
    begin
      JsonArray := JsonValue as TJSONArray;
      j := 1;
      for i := 0 to JsonArray.Count - 1 do
      begin
        JsonObject := JsonArray.Items[i] as TJSonObject;
        id := JsonObject.GetValue('id').Value;
        sku := JsonObject.GetValue('sku').Value;
        description := JsonObject.GetValue('description').Value;
        name := JsonObject.GetValue('name').Value;
        price := JsonObject.GetValue('price').Value;
        // Заполнение данных в StringGrid...
        Inc(j);
      end;
    end;
  finally
    JsonValue.Free;
  end;
end;

Заключение

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

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

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

В данном контексте рассматривается процесс получения количества элементов в JSON-массиве и их обработка в среде разработки Delphi.

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

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

:: Главная :: Библиотеки компонент ::