TVirtualStringTree & TList

unit FormMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Contnrs, VirtualTrees;

type
  TfrmMain = class(TForm)
    vstData: TVirtualStringTree;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure vstDataGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
      Column: TColumnIndex; TextType: TVSTTextType;
      var CellText: WideString);
  private
    { Private declarations }
    FList: TObjectList;
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

{ TfrmMain }

procedure TfrmMain.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  { Действия при создании формы / запуске приложения }
  FList := TObjectList.Create;
  for i := 0 to 99 do
  begin
    FList.Add(TStringList.Create);
    TStringList(FList).Text := IntToStr(i + 1);
  end;

  vstData.NodeDataSize := sizeof(Pointer);
  for i := 99 downto 0 do
  begin
    vstData.AddChild(vstData.RootNode, FList); //исп. только первые 4 байта переданного <буфера>. Остальное разве что в InitNode
  end;
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  { Действия при разрушении формы / закрытии приложения }
  FList.Free;
end;

procedure TfrmMain.vstDataGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
var
  P: ^TStringList;
begin
  P := vstData.GetNodeData(Node);
  CellText := P.Text;
end;

end.