Структурирование данных в TreeView: создание дерева из набора записей в Delphi

Delphi , Компоненты и Классы , TTreeView

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

Проблема

Рассмотрим типичную ситуацию, когда у нас есть набор записей (recordset), полученный из базы данных. Записи содержат несколько полей, и нам необходимо отобразить их в виде дерева, где каждое поле представляет уровень иерархии.

Select FIELD1,FIELD2,FIELD3,FIELD4 FROM MyTable Order By FIELD1,FIELD2,FIELD3,FIELD4 Group By FIELD1,FIELD2,FIELD3,FIELD4

Данные могут выглядеть следующим образом:

И мы хотим отобразить их в TreeView в виде:

Пробный код

Исходный код, который был использован для заполнения TreeView, не смог достичь желаемого результата. В коде использовался цикл для перебора полей в каждой записи, но логика добавления узлов в дерево была неправильной, что привело к некорректному отображению данных:

var
  Node: TTreeNode;
  RootLevelCount: Integer;
  X: Integer;
  CurrentTextField: String;
  MyTreeNodeText: array [0..10] of String;
begin
  RootLevelCount := 4;
  while not dm1.Q1.Eof do
  begin
    for X := 0 to RootLevelCount do
    begin
      CurrentTextField:=dm1.Q1.Fields[X].AsString;
      // ... (омitted for brevity)
    end;
    dm1.Q1.Next;
  end;
end;

Результат работы этого кода был следующим:

Решение проблемы

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

var
  Node: TTreeNode;
  RootLevelCount: Integer;
  X, X1: Integer;
  CurrentTextField, ROW_ID: String;
  MyTreeNodeText: array [0..10] of String;
  MyTreeNode: array [0..10] of TTreeNode;
begin
  RootLevelCount := 4;
  while not dm1.Q1.Eof do
  begin
    ROW_ID := dm1.Q1.FieldByName('ROW_ID').AsString;
    for X := 0 to RootLevelCount - 1 do
    begin
      // ... (омitted for brevity)
      if X = 0 then
      begin
        Node := tree.Items.Add(nil, CurrentTextField);
        TMyTreeNode(Node).Indice := StrToInt(ROW_ID);
        MyTreeNode[X] := Node;
      end else
      begin
        Node := tree.Items.AddChild(MyTreeNode[X - 1], CurrentTextField);
        TMyTreeNode(Node).Indice := StrToInt(ROW_ID);
        MyTreeNode[X] := Node;
      end;
    end;
    MyTreeNodeText[RootLevelCount] := '';
    dm1.Q1.Next;
  end;
end;

И финальный результат работы кода:

Выводы

Ключевым моментом при структурировании данных в TreeView является правильное понимание иерархии данных и корректное создание узлов на каждом уровне. Использование дополнительных массивов и переменных для хранения состояния узлов может помочь в реализации сложных логических операций. Важно также обращать внимание на индексацию и порядок операций при добавлении узлов.

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

Структурирование данных в виде дерева с использованием компонента TreeView в Delphi для отображения иерархически организованных записей из базы данных.

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

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

:: Главная :: TTreeView ::