Оптимизация отображения данных в TVirtualStringTree без лишнего потребления памяти

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

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

Введение

У нас есть класс TFSObject, представляющий собой объект файловой системы, который является потокобезопасным. Этот класс используется в потоке, сканирующем файловую систему и заполняющем данные. На форме основного приложения имеется таймер, получающий данные из этого класса и отображающий их в TVirtualStringTree.

Задача состоит в том, чтобы показать такие данные в TVirtualStringTree, не теряя дополнительной памяти для хранения копии данных в узлах.

Решение

Подход с использованием пользовательских данных

Один из подходов к решению этой проблемы заключается в использовании пользовательских данных в узлах TVirtualStringTree. Мы можем создать запись TSizeData, содержащую указатель на объект TFSObject, и использовать эту запись в качестве данных узла.

type
  PSizeData = ^TSizeData;
  TSizeData = record
    FSObj: PFSObject;
  end;

Затем мы можем использовать эту запись в обработчике InitNode для установки данных узла и в обработчике GetText для получения текста узла на основе данных.

procedure TformSize.tvSizeInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
  var InitialStates: TVirtualNodeInitStates);
var
  Data, ParData: PSizeData;
  PFSObj: PFSObject;
begin
  Data  := Sender.GetNodeData(Node);
  if not Assigned(ParentNode) then
    PFSObj := @FSThread.FSObject
  else begin
    ParData := Sender.GetNodeData(ParentNode);
    PFSObj := PFSObject(ParData.FSObj.Children[Node.Index]);
  end;
  Data.FSObj := PFSObj;
end;

procedure TformSize.tvSizeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
  TextType: TVSTTextType; var CellText: string);
var
  Data, ParData: PSizeData;
begin
  // Get node text based on the data
  CellText := GetSizeDataText(Node.Data, Column);
end;

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

Учет изменений в данных

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

procedure TformSize.tvSizeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
  TextType: TVSTTextType; var CellText: string);
var
  Data, ParData: PSizeData;
begin
  // Check that children count changed for node
  Data := tvSize.GetNodeData(Node);
  if (Int32(Node.ChildCount) <> Data.FSObj.Children.Count) then begin
    tvSize.ChildCount[Node] := Data.FSObj.Children.Count;
    // Check that children count changed for parent node
    ParData := tvSize.GetNodeData(Node.Parent);
    if Assigned(ParData) and (Int32(Node.Parent.ChildCount) <> ParData.FSObj.Children.Count) then
      tvSize.ChildCount[Node.Parent] := ParData.FSObj.Children.Count;
  end;
  // Get node text
  CellText := GetSizeDataText(Data, Column);
end;

Синхронизация доступа к данным

При работе с потокобезопасным классом TFSObject важно учитывать потокобезопасность при доступе к данным. Для этого мы можем использовать методы LockRead, UnlockRead, LockWrite и UnlockWrite в классе TFSObject.

procedure TformSize.tvSizeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
  TextType: TVSTTextType; var CellText: string);
var
  Data, ParData: PSizeData;
begin
  // Lock data for reading
  Data.FSObj.LockRead;
  try
    // Check that children count changed for node
    if (Int32(Node.ChildCount) <> Data.FSObj.Children.Count) then begin
      tvSize.ChildCount[Node] := Data.FSObj.Children.Count;
      // Check that children count changed for parent node
      ParData := tvSize.GetNodeData(Node.Parent);
      if Assigned(ParData) and (Int32(Node.Parent.ChildCount) <> ParData.FSObj.Children.Count) then
        tvSize.ChildCount[Node.Parent] := ParData.FSObj.Children.Count;
    end;
    // Get node text
    CellText := GetSizeDataText(Data, Column);
  finally
    // Unlock data after reading
    Data.FSObj.UnlockRead;
  end;
end;

Заключение

При отображении данных в TVirtualStringTree важно учитывать потребление памяти, чтобы избежать излишних затрат и проблем с производительностью. Использование пользовательских данных в узлах и учет изменений в данных позволяют оптимизировать отображение данных в TVirtualStringTree, не создавая лишних копий данных в узлах. Кроме того, важно учитывать потокобезопасность при доступе к данным, особенно при работе с потокобезопасными классами, такими как TFSObject.

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

Статья посвящена оптимизации отображения данных в компоненте TVirtualStringTree без лишнего потребления памяти.

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

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

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