VirtualStringTree bringt mich zur Weißglut. Baum anhand von Datei erstellen

[Schokohase]

Wenn man ganz genau hinsieht, dann ist es irgendwie das gleiche wie mit dem Writeln

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var
  lRootNode: TNode<string>;
begin
  lRootNode := ...

  CreateNode(VirtualStringTree1, nil, lRootNode);
end;

procedure CreateNode(VST: TBaseVirtualTree; AParent: PVirtualNode; AData: TNode<string>);
var
  Node: PVirtualNode;
  NodeData: PDirectoryData;
begin
  Node := VST.AddChild(AParent);
  NodeData := VST.GetNodeData(Node);
  NodeData^.Title := AData.Value;

  for i := 0 to AData.Children.Count - 1 do begin
    CreateNode(VST, Node, AData.Children[i]);
  end;
end;