VirtualStringTree: Nodes herausfinden

[socialist]

Hallo alle zusammen. Kann mir einer dabei helfen, alle Nodes des VSTs erster Instanz (Falls das falsch ausgedrückt ist: Alle Nodes, die keine Childs haben) zu ermitteln (diese würde ich gern in einer Kombobox ausgeben)?
mfg

[Sprint]

Zitat:

Zitat von socialist

Alle Nodes, die keine Childs haben) zu ermitteln (diese würde ich gern in einer Kombobox ausgeben)?

Für alle RootNodes die keine Childs haben:

Delphi-Quellcode:

var
  Node: PVirtualNode;
  NodeData: PNodeData;
begin

  Node := TreeView.GetFirst;
  while Assigned(Node) do
  begin
    if not TreeView.HasChildren[Node] then

      if TreeView.GetNodeLevel(Node) = 0 then
      begin
        NodeData := TreeView.GetNodeData(Node);
        // NodeData.Text zu ComboBox
      end;
    Node := TreeView.GetNext(Node);
  end;

end;

Für alle Nodes die keine Childs haben:

Delphi-Quellcode:

var
  Node: PVirtualNode;
  NodeData: PNodeData;
begin

  Node := TreeView.GetFirst;
  while Assigned(Node) do
  begin
    if not TreeView.HasChildren[Node] then
    begin
      NodeData := TreeView.GetNodeData(Node);
      // NodeData.Text zu ComboBox
    end;
    Node := TreeView.GetNext(Node);
  end;

end;

TNodeData habe ich zum Testen so deklariert:

Delphi-Quellcode:

type
  PNodeData = ^TNodeData;
  TNodeData = record
    Text: ShortString;
  end;

[socialist]

Danke für die Tips. Klappt echt super! :hello: