Персистентное хранилище деревьев TStringTree в Delphi

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

При разработке приложений на Delphi нередко возникает необходимость в хранении иерархических данных, таких как деревья или списки. В стандартной библиотеке VCL присутствуют различные типы списков (TList, TCollection и т.д.), но отсутствует базовый класс для хранения деревьев, который мог бы послужить основой для других классов. В этой статье мы рассмотрим, как создать простое, но эффективное персистентное хранилище деревьев TStringTree в Delphi.

Задача

Необходимо создать персистентное хранилище деревьев TStringTree, которое позволит сохранять и загружать данные без потери информации. Хранилище должно быть невизуальным, то есть не иметь привязки к визуальным элементам интерфейса.

Решение

Для решения этой задачи мы создадим два класса: TNode и TStringTree. Класс TNode будет представлять узел дерева и содержать данные (строку), ссылку на родительский узел и список дочерних узлов. Класс TStringTree будет представлять само дерево и предоставлять методы для добавления, удаления и получения узлов.

Начнем с определения класса TNode:

type
  TNode = class
  private
    FData: string;
    FParent: TNode;
    FChildren: TObjectList;
  public
    constructor Create(const AData: string);
    procedure AddChild(const AData: string);
    procedure RemoveChild(AChild: TNode);
    function GetChildIndex(AChild: TNode): Integer;
    property Data: string read FData;
    property Parent: TNode read FParent write FParent;
    property Children: TObjectList read FChildren;
  end;

Теперь определим класс TStringTree:

type
  TStringTree = class
  private
    FRoot: TNode;
  public
    constructor Create;
    destructor Destroy; override;
    procedure Add(const AData: string);
    procedure Remove(const AData: string);
    function Find(const AData: string): TNode;
    procedure SaveToStream(AStream: TStream);
    procedure LoadFromStream(AStream: TStream);
  end;

Далее реализуем методы классов TNode и TStringTree. Для упрощения кода опустим реализацию некоторых методов, таких как RemoveChild и Find.

Пример использования

Теперь рассмотрим пример использования нашего персистентного хранилища деревьев TStringTree:

var
  Tree: TStringTree;
  Node: TNode;
begin
  Tree := TStringTree.Create;
  try
    Tree.Add('Root');
    Tree.Add('Child1');
    Tree.Add('Child2');
    Tree.Add('Grandchild1');
    Tree.SaveToStream(FileOfStream.Create('tree.dat', fmCreate));

    // Загрузка дерева из файла
    Tree.LoadFromStream(FileOfStream.Create('tree.dat', fmOpenRead));

    // Получение узла по данным
    Node := Tree.Find('Child1');
    if Assigned(Node) then
      Writeln(Node.Data);

    // Добавление нового узла
    Tree.Add('NewChild');
  finally
    Tree.Free;
  end;

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

Вывод

В данной статье мы рассмотрели, как создать простое, но эффективное персистентное хранилище деревьев TStringTree в Delphi. Решение основано на двух классах: TNode и TStringTree, которые обеспечивают хранение и манипуляцию данными в виде дерева. Несмотря на свою простоту, это хранилище может быть использовано в различных областях, таких как хранение директорий, данных в форматах HTML, XML, JSON и т.д.

Несмотря на то, что существуют готовые библиотеки, содержащие реализации деревьев и других структур данных, как например DI Containers, созданное нами хранилище деревьев TStringTree является достаточно гибким и может быть использовано в различных ситуациях, где требуется хранение иерархических данных.

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

В данном контексте рассматривается создание персистентного хранилища деревьев TStringTree в Delphi, которое позволяет сохранять и загружать данные без потери информации.

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

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

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