Delphi：检查树视图中的选择

Question

有一个包含 2 级项目的树视图。我需要将所有选定的“子”（级别 1）项目的文本添加到备忘录中。

for i := 0 to pred(TreeView1.Items.count) do 
if (TreeView1.Items.Item[i].Selected) and (TreeView1.Items.Item[i].Level=1)
   then 
       begin
            Memo1.Lines.Add(TreeView1.Items.Item[i].Text)
       end;

但是，如果选择了它们的父项（0 级），如何在不检查（选择与否）的情况下一次添加所有“子”项？例如。我选择了 3 个级别为 0 的项目，并将它们的子项添加到备忘录中。

感谢您的帮助！

Answer 1

仅获取具有选定父级的 1 级节点：

var
  Node: TTreeNode;
  Sub: TTreeNode;
begin
  Node := TreeView.Items.GetFirstNode;
  while Node <> nil do
  begin
    if Node.Selected then
    begin
      Sub := Node.GetFirstChild;
      while Sub <> nil do
      begin
        Memo1.Lines.Add(Sub.Text);
        Sub := Sub.GetNextSibling;
      end;
    end;
    Node := Node.GetNextSibling;
  end;
end;

因评论而更新：

获取具有选定父级或自身选定的 1 级节点：

var
  I: Integer;
begin
  for I := 0 to TreeView.Items.Count - 1 do
    with TreeView.Items[I] do
      if (Level = 1) and (Selected or Parent.Selected) then
        Memo1.Lines.Add(Text);
end;

Answer 2

在我看来，您正在寻找所有具有父节点的选定节点。最简单的方法如下：

procedure EnumerateSelectedNonTopLevelItems(TreeView: TTreeView; List: TStrings);
var
  Node: TTreeNode;
begin
  for Node in TreeView.Items do
    if Node.Selected and Assigned(Node.Parent) then
      List.Add(Node.Text);
end;

此例程将为您提供级别 2、3、4 等的节点。由于您只有级别 0 和级别 1，这很好。如果您确实需要顶级节点的直接后代节点，那么您可以像这样修改测试：

if Node.Selected and Assigned(Node.Parent) and not Assigned(Node.Parent.Parent) then