Использование InitNode и FreeNode в VirtualStringTree: привязка данных к узлу и альтернативные способы

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

В данной статье мы рассмотрим вопрос использования VirtualStringTree для отображения данных, хранящихся в собственном классе приложения (TMyDataClass). Мы изучим, как привязать данные к узлу (Node) в VirtualStringTree и альтернативные способы доступа к данным без привязки.

Введение в VirtualStringTree

VirtualStringTree — это виртуальное дерево строк, которое используется для отображения данных в виде дерева. Оно управляет отображением, порядком и другими аспектами данных, не беспокоясь о том, что именно представляют собой эти данные. Каждый узел (Node) в дереве может содержать дополнительную информацию для получения данных, которые ему нужны. Это свойство называется "Data".

Привязка данных к узлу

Чтобы привязать данные к узлу в VirtualStringTree, вам нужно хранить указатель (ссылку) на объект данных в свойстве "Data" узла. Обычно не рекомендуется создавать дубликаты данных, поэтому в свойстве "Data" узла хранится указатель на объект, из которого можно получить необходимые данные.

Например, если у вас есть класс TMyDataClass, который содержит данные, которые вы хотите отобразить в VirtualStringTree, вы можете создать запись (record) TMyNodeRecord, которая будет содержать указатель на объект TMyDataClass. Затем в методе GetText VirtualStringTree можно будет получить доступ к данным через указатель, хранящийся в свойстве "Data" узла.

type
  TMyNodeRecord = record
    AppData: TMyDataClass;
  end;

procedure TForm1.VirtualStringTree1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; CellText: string);
begin
  CellText := TMyNodeRecord(Node.Data).AppData.DisplayText;
end;

В данном примере CellText устанавливается в значение свойства DisplayText объекта TMyDataClass, на который указывает указатель, хранящийся в свойстве "Data" узла.

Альтернативный способ доступа к данным

Если вы не хотите привязывать данные к узлу, вы все равно можете получить доступ к данным в методе GetText VirtualStringTree, не используя свойство "Data" узла. Для этого вам нужно будет знать, как связать данные в экземпляре вашего класса с узлом дерева. Один из способов — использовать индекс узла для получения данных из вашего класса.

Например, если у вас есть список данных в вашем классе TMyDataClass, вы можете использовать индекс узла для получения данных из этого списка в методе GetText.

procedure TForm1.VirtualStringTree1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; CellText: string);
begin
  CellText := TMyDataClass.Names[Node.Index];
end;

В данном примере CellText устанавливается в значение элемента списка Names по индексу узла.

Заключение

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

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

В данной статье рассматривается использование VirtualStringTree для отображения данных, хранящихся в собственном классе приложения (TMyDataClass), с акцентом на привязку данных к узлу (Node) в VirtualStringTree и альтернативные способы доступа к данным бе

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

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

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