Einzelnen Beitrag anzeigen

Schokohase

Registriert seit: 17. Apr 2018
574 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#10

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

  Alt 10. Feb 2019, 14:51
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;

Geändert von Schokohase (10. Feb 2019 um 14:54 Uhr)
  Mit Zitat antworten Zitat