Обработка дочерних узлов в VirtualStringTree с объектами в Delphi 2010

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

VirtualStringTree (VST) — это удобный компонент для отображения больших объемов данных в виде древовидной структуры. В данной статье мы рассмотрим, как правильно обрабатывать дочерние узлы (childnodes) в VST, работая с объектами в Delphi 2010.

Проблема

Работая с VST, пользователь столкнулся с трудностями при обработке дочерних узлов, когда данные представлены в виде объектов. Ему удалось связать объекты с узлами, но процесс seemed wrong, так как он дублировал весь объект для каждого дочернего узла и отображал только необходимое поле.

Решение

Вместо того чтобы дублировать объекты для каждого дочернего узла, мы можем использовать виртуальность VST для обработки данных. Для этого нам нужно лишь правильно настроить eventos VST.

1. Установите RootNodeCount VST на количество записей в CustomerObjectList:

vstree.RootNodeCount := CustomerObjectList.Count;

1. В evento OnInitNode задайте количество дочерних узлов для уровней 0 и обработайте данные в evento OnGetText:

procedure TfrmMain.vstreeInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
begin
  if Sender.GetNodeLevel(Node) = 0 then
  begin
    Sender.ChildCount[Node] := 4;
    Sender.Expanded[Node] := TRUE;
  end;
end;

procedure TfrmMain.vstreeGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: string);
begin
  if Column <= 0 then
  begin
    if Sender.GetNodeLevel(Node) = 0 then
      CellText := CustomerObjectList[Node.Index].Name
    else
      case Node.Index of
        0: CellText := CustomerObjectList[Parent.Node.Index].Sex;
        1: CellText := CustomerObjectList[Parent.Node.Index].Age;
        2: CellText := CustomerObjectList[Parent.Node.Index].Hair;
        3: CellText := CustomerObjectList[Parent.Node.Index].City;
      end;
  end;
end;

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

Альтернативный ответ

Если вы не хотите выполнять приведение типов объектов, используйте TObjectList из Generics.Collections. Например, MyList := TObjectList.Create. В общем, редко нужно хранить данные в записях VST, если они уже доступны в другом месте.

Подтвержденный ответ

Пользователь получил рабочее решение, используя виртуальность VST для обработки данных. Он также отметил, что ему понравилось простое и изящное решение, предложенное в ответе.

Заключение

При работе с дочерними узлами в VST с объектами в Delphi 2010 важно правильно настроить eventos VST, чтобы эффективно обрабатывать данные. Используя виртуальность VST, мы можем избежать дублирования объектов для каждого дочернего узла, что делает код более чистым и простым в обслуживании.

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

Статья о правильной обработке дочерних узлов в компоненте VirtualStringTree (VST) с объектами в Delphi 2010.

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

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

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