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

[DieDolly]

Zitat:

Dann kannst du dir den gesamten Ablauf Schritt für Schritt anschauen.

Den Ablauf verstehe ich. Aber ich verstehe nicht, wie man das in ein VST packt. Weil das ist etwas komplett anderes als einen String auszugeben.
Die Ausgabe mit dem WriteLn ist selbsterklärend.

[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;

[DieDolly]

Danke für die Hilfe. Aber ich bin keine Delphicrack und versuche es lieber mit einfachem Code. Es bringt mir nix Code zu benutzen, den ich in 10 Jahren nicht verstehen werde.
Das müsst ihr verstehen. Ihr seid vermutlich gelernte Entwickler und macht eurer Leben lang nix anderes. Aber es gibt auch Leute wie mich die auch was anderes im Leben zu tun haben als sich
mit Code auseinanderzusetzen der komplizierter für normale Leute nicht sein könnte.