Использование VirtualStringTree в Delphi: Переход от ListView с примерами

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

При работе с большими объемами данных в Delphi, разработчики часто сталкиваются с необходимостью использования компонентов, обеспечивающих высокую производительность. Одним из таких компонентов является VirtualStringTree, который позволяет эффективно работать с большими объемами информации благодаря использованию виртуального режима отображения данных.

Проблема

Разработчик сталкивается с необходимостью перехода от использования TListView к VirtualStringTree из-за значительного улучшения производительности. Однако, несмотря на изучение демо-проектов, он не может понять, как использовать VirtualStringTree в качестве аналога TListView, особенно в части добавления, удаления и работы с элементами списка.

Решение

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

procedure Add;
var
  Data: PLogData;
  XNode: PVirtualNode;
begin
  with vst do
  begin
    XNode := AddChild(nil);
    ValidateNode(XNode, False);
    Data := GetNodeData(XNode);
    Data^.Name := EditCaption.Text;
    Data^.Msg := EditSubItem.Text;
  end;
end;

procedure ReadItem(I: Integer);
var
  Data: PLogData;
begin
  if not Assigned(vst.FocusedNode) then Exit;
  Data := vst.GetNodeData(vst.FocusedNode);
  ShowMessage(Data^.Name);
  ShowMessage(Data^.Msg);
end;

Для работы с VirtualStringTree необходимо создать запись данных, которая будет ассоциирована с каждым узлом дерева. В примере используется запись TLogData с полями IsErr, Name и Msg.

type
  PLogData = ^TLogData;
  TLogData = record
    IsErr: Boolean;
    Name: String;
    Msg: String;
  end;

Также важно реализовать события OnFreeNode, OnGetText и OnPaintText для корректной работы с данными.

procedure TdmVstLog.VSTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
  Data: PLogData;
begin
  Data := Sender.GetNodeData(Node);
  Finalize(Data^);
end;

procedure TdmVstLog.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
var
  Data: PLogData;
begin
  Data := Sender.GetNodeData(Node);
  case Column of
    0: CellText := Data^.Name + ' - ' + Data^.Msg;
  end;
end;

И так далее, в зависимости от требований к отображению и функционалу.

Заключение

Переход от TListView к VirtualStringTree может быть сложной задачей, но предоставленные примеры кода демонстрируют базовые операции, которые необходимо выполнить для работы с VirtualStringTree в стиле ListView. Важно понять, что VirtualStringTree - это мощный инструмент, который требует более глубокого понимания принципов работы с виртуальными деревьями, но с правильным подходом он может значительно улучшить производительность приложений, особенно при работе с большими объемами данных.

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

Разработчик переходит от использования `TListView` к `VirtualStringTree` в Delphi для улучшения производительности, изучая примеры работы с элементами списка и настройки виртуального режима отображения данных.

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

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

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