Я часто работаю с VirtualTreeView. Очень удобный и мощный компонент, да еще бесплатный и с открытым кодом. Работу с данными я обычно веду следующим образом:

type

  PData = ^TData;

  TData = record

    Caption: WideString;

    Data: WideString;

    Count: Integer;

  end;

 

var

  lData: PData;

begin

  lData := VT.GetNodeData(Node);

  if Assigned(lData) then

  begin

    // Тут код

  end;

end;

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

И у моего подхода есть один минус. Точнее он есть у любого подхода, связанного с VT - необходимо при удалении узла, удалить и данные, связанные с этим узлом. Я всегда делал так:

var

  lData: PData;

begin

  lData := VT.GetNodeData(Node);

  if Assigned(lData) then

  begin

    lData^.Caption := EmptyWideStr;

    lData^.Data := EmptyWideStr;

  end;

end;

А если стринговых полей будет пара сотен? Сегодня узнал, что можно все делать проще:

var

  lData: PData;

begin

  lData := VT.GetNodeData(Node);

  if Assigned(lData) then

    Finalize(lData^);

end;

И все. Действительно - "век живи - век учись". Спасибо VICTAR за подсказку и Codegear за прекрасный инструмент.