Эффективное сохранение и загрузка дерева в Delphi: оптимизация работы с большими объемами данных

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

Прежде чем приступить к написанию статьи, стоит отметить, что основная проблема, с которой столкнулся пользователь, связана с необходимостью сохранения и загрузки большого количества данных, связанных с узлами дерева в Delphi. Для решения этой задачи было предложено использовать TMemoryStream и сохранение в виде BLOB, что значительно ускоряет процесс загрузки данных, но не сохраняет привязку к объектам записей. В качестве альтернативного ответа было предложено использовать собственные методы ToString и FromString для преобразования объектов в строки и обратно, что позволяет сохранять и загружать данные в формате, удобном для хранения в базе данных.

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

Проблема сохранения данных дерева

Предположим, у нас есть TreeView с более чем 4000 узлами, каждый из которых содержит объект записи. Классический подход к сохранению состояния дерева, заключающийся в чтении данных из файла по одному элементу и создании объекта записи для каждого, является крайне медленным. Однако, использование TMemoryStream для сохранения данных в виде BLOB и последующая загрузка из BLOB в базу данных происходит очень быстро, но данные объекты записей при этом теряются.

Решение проблемы

Для решения данной проблемы можно использовать методы ToString и FromString, которые позволят преобразовать объекты записей в строки и обратно. Это позволит сохранить данные в базе данных в формате, удобном для последующей загрузки, не теряя при этом привязку к объектам.

program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils, system.Math, Data.DB;
type
  TMyRec = record
  public
    const DELIM='###';
  constructor Create(Data: string);
  public
    text:string;
    codigo:string;
    medida:string;
    parent:string;
    ativo:String;
    Tipo: string;
    wasExpanded:boolean;
  public
    function ToString: string;
    procedure FromString(Value: string);
  end;
{ TMyRec }
constructor TMyRec.Create(Data: string);
begin
  FromString(Data);
end;
procedure TMyRec.FromString(Value: string);
var
  i: integer;
  a: TArray<string>;
begin
  Self := Default(TMyRec);
  a    := Value.Split([DELIM]);
  for i := 0 to Min(length(a), 7) do
    case i of
      0: text          := a[0]; // или a[i]
      1: codigo        := a[1];
      // ... аналогичные строки для остальных полей
    end;
end;
function TMyRec.ToString: string;
begin
  // Форматирование строки с разделителями для каждого поля
  Result := Format('%s%s%s%s%s%s%s%s%s%s%s%s%d%',
  // Форматирование строк с индексами для каждого поля, например, для поля 'text' это индекс 0
                         [text, DELIM, codigo, DELIM, medida, DELIM, parent, DELIM,
                         // ... аналогичные строки для остальных полей
                          ativo, DELIM, Tipo, DELIM, ord(wasExpanded)]);
end;
var
  s : string;
  r : TMyRec;
  db: TDataSet;
begin
  try
    // Тестирование
    r         := Default(TMyRec);
    r.text    := 'ABC';
    r.codigo  := 'DEF';
    // ... аналогичные строки для инициализации остальных полей

    // Сохранение
    s := r.ToString;
    writeln(s);

    // Загрузка
    r := Default(TMyRec);
    r := TMyRec.Create(s);
    s := r.ToString; // Проверка корректности преобразования после загрузки
    writeln(s);
    // TODO : С использованием подключения к базе данных
    // db.FieldByName('abc').AsString := r.ToString;
    // r := TMyRec.Create(db.FieldByName('abc').AsString);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

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

Используя методы ToString и FromString, мы можем преобразовать наши объекты записей в строку, которая затем может быть сохранена в базе данных или файле. При загрузке данных, строка может быть преобразована обратно в объект записи.

Заключение

При работе с большими объемами данных в Delphi, важно использовать методы оптимизации, такие как использование TMemoryStream и BLOB для хранения данных. Однако, для сохранения привязки к объектам записей, можно использовать кастомные методы ToString и FromString, позволяющие преобразовывать объекты в строки и обратно, обеспечивая тем самым сохранность данных вместе с их структурой. Это решение позволяет работать с большими объемами данных без значительной потери производительности.

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

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

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

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

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

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