Извлечение значения из вложенного JSON-массива в Delphi

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

Извлечение значения из вложенного JSON-массива в Delphi

Для начала, давайте разберемся с предоставленным JSON-объектом. У нас есть вложенный массив, и нам нужно извлечь определенные значения из этого массива, используя язык программирования Object Pascal в среде разработки Delphi.

Шаг 1: Подготовка

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

Шаг 2: Чтение и обработка JSON

Загрузим предоставленные данные в TJSONValue и проверим, является ли данное значение массивом. Если это так, то продолжаем. Предположим, что у вас уже есть переменная JSONValue, содержащая ваш JSON-массив.

Шаг 3: Вложенный массив

Теперь, когда мы знаем, что у нас есть массив, мы можем пройти по его элементам в цикле:

var
  JSONValue: TJSONValue;
  JSONArray: TJSONArray;
  JSONObject: TJSONObject;
  JSONSubArray: TJSONArray;
  JSONSubObject: TJSONObject;
  Key, SubKey: string;
  Index, SubIndex: Integer;
begin
  // Предположим, что JSONValue уже загружен из вашего JSON
  JSONArray := JSONValue as TJSONArray;
  for Index := Low(JSONArray.Items) to High(JSONArray.Items) do
  begin
    JSONObject := JSONArray.Items[Index] as TJSONObject;
    // Здесь можно обратиться к любому полю, которое вы знаете о вашем объекте
    // Например, 'Get('meta_data').JSONValue.Value;
    JSONSubArray := JSONObject.Get('meta_data') as TJSONArray;
    for SubIndex := Low(JSONSubArray.Items) to High(JSONSubArray.Items) do
    begin
      JSONSubObject := JSONSubArray.Items[SubIndex] as TJSONObject;
      SubKey := JSONSubObject.GetValue('key').Value;
      if SubKey = 'bm_psi_bulk_prices' then
      begin
        JSONSubObject := JSONSubObject.GetValue('value') as TJSONObject;
        // Теперь мы можем работать с вложенным объектом, который содержит массив цен
        // Например, для ключа '1' можем получить значение цены как:
        // JSONSubObject.GetValue('1').GetValue('bulk_price').Value;
      end;
    end;
  end;
end;

Шаг 4: Работа с ценовыми диапазонами

Теперь, когда мы нашли нужный нам массив цен, мы можем обратиться к каждому ценовому диапазону отдельно, используя ключи '1', '2', и так далее, как показано в примере выше.

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

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

Описание Context: Необходимо извлечь значения из вложенного JSON-массива в среде разработки Delphi с использованием Object Pascal.

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

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

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