Создание иерархической JSON-структуры с SuperObject в Delphi: рекурсивный подход

Delphi , Базы данных , Поиск

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

Проблема

Предположим, у нас есть набор объектов, каждый из которых содержит id, name и parent. Необходимо преобразовать этот набор в иерархическую структуру, где каждый объект может иметь дочерние элементы. Например, начальный набор объектов выглядит следующим образом:

[
  {"id": "0001","name": "item0001", "parent":""},
  {"id": "0002","name": "item0002", "parent":""},
  {"id": "0003","name": "item0003", "parent":""},
  {"id": "0003.1","name": "item0003.1", "parent":"0003"},
  {"id": "0003.1.1","name": "item0003.1.1", "parent":"0003.1"}
]

И нам нужно преобразовать его в следующую иерархию:

{
  "items": [
    {
      "id": "0001",
      "name": "item0001"
    },
    {
      "id": "0002",
      "name": "item0002"
    },
    {
      "id": "0003",
      "name": "item0003",
      "items": [
        {
          "id": "0003.1",
          "name": "item0003.1",
          "items": [
            {
              "id": "0003.1.1",
              "name": "item0003.1.1"
            }
          ]
        }
      ]
    }
  ]
}

Решение

Для решения этой задачи можно использовать рекурсивный подход. Суть его заключается в следующем:

1. Для каждого объекта проверяем, есть ли у него родитель.
2. Если родителя нет, добавляем объект в корень иерархии.
3. Если родитель есть, находим его в иерархии и добавляем текущий объект в качестве дочернего элемента.

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

Пример кода

Вот пример функции на Object Pascal, которая реализует описанный выше подход:

function ProcessObject(const aAsObject: iSuperObject): iSuperObject;
var
  KeyedObject, item, parent, tgt: iSuperObject;
begin
  KeyedObject := SO('{}');
  for item in aAsObject do
    KeyedObject[item['id'].AsString] := item;

  for item in aAsObject do
  begin
    if assigned(item['parent']) then
    begin
      parent := KeyedObject[item['parent'].AsString];
      if not assigned(parent['items']) then
        parent['items'] := SO('[]');
      parent['items'].Add(item);
    end;
  end;

  tgt := SO('{}');
  for item in aAsObject do
    if not assigned(item['parent']) then
      tgt['items'].Add(item);

  Result := tgt;
end;

Этот код создает иерархическую структуру, начиная с корневого объекта tgt, который содержит массив items. Каждый элемент входного списка проверяется на наличие родителя, и если родитель найден, то элемент добавляется в соответствующий список дочерних элементов родителя.

Заключение

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

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

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

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

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

:: Главная :: Поиск ::