Построение дерева на основе родительских связей в Delphi и Pascal

Delphi , Синтаксис , Деревья

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

Первый шаг – определить записи для каждого типа данных. Например, у нас есть три разных записи: TRecord1, TRecord2 и TRecord3.

Type
  TRecord1 = Record
    ID: Integer;
    Name: String255;
    Res: Array[1..500] of Byte;
  End;

  TRecord2 = Record
    ID: Integer;
    Parents: Array[0..4] of Integer;
    Customer: String100;
    Res: Array[1..500] of Byte;
  End;

  TRecord3 = Record
    ID: Integer;
    Parents: Array[0..4] of Integer;
    Datas: String20;
    Res: Array[1..500] of Byte;
  End;

Далее, следует прочитать все данные из файлов и заполнить список всех записей каждого типа. Затем можно построить дерево на основе родительских связей.

Для этого можно использовать рекурсивный подход. Создаем функцию, которая принимает ID родителя и возвращает узел дерева. Функция ищет запись с заданным ID и создает новый узел дерева. Если родительский ID не равен 0, то функция рекурсивно создает родительский узел, если он еще не создан. После создания родительского узла, текущий узел добавляется в список детей родительского узла.

Пример кода на Object Pascal (Delphi):

Type
  TTreeNode = Record
    ID: Integer;
    ParentID: Integer;
    Children: TArray<TTreeNode>;
    Data: TRecord1 | TRecord2 | TRecord3;
  End;

  TRecordList = TArray<TRecord1> | TArray<TRecord2> | TArray<TRecord3>;

Function CreateTreeNode(const ParentID: Integer; const RecordList: TRecordList): TTreeNode;
Begin
  Result.ID := RecordList[0].ID;
  Result.ParentID := ParentID;
  Result.Children := [];

  If ParentID <> 0 then
  Begin
    var ParentNode := CreateTreeNode(ParentID, RecordList);
    ParentNode.Children.Add(Result);
  End;

  If RecordList[0].Parents.Length > 0 then
  Begin
    for var i := 0 to RecordList[0].Parents.Length - 1 do
    Begin
      var ParentID := RecordList[0].Parents[i];
      if ParentID <> 0 then
        CreateTreeNode(ParentID, RecordList);
    End;
  End;
End;

После того, как все узлы дерева созданы, можно отобразить дерево в TTreeView или другом визуальном компоненте Delphi.

Такой подход позволяет построить дерево на основе родительских связей, даже если родительские записи создаются после дочерних. При этом не требуется использовать базу данных, достаточно работать с файлами данных.

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

Построение дерева на основе родительских связей в Delphi и Pascal, когда вся доступная информация для каждого элемента – это ID родителя.

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

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

:: Главная :: Деревья ::