这个要用递归来实现的。 sl: TStringList; dbtv1:TdxDBTreeView; AllOverNode(dbtv1.Selected); ... procedure TForm1.AllOverNode(node: TTreeNode); var i: Integer; begin if node = nil then Exit; sl.add(node.Text); for i := 0 to node.Count - 1 do AllOverNode(node.Item[i]); end; //大致是这样的,我没具体实现
dbtv1:TdxDBTreeView;
AllOverNode(dbtv1.Selected);
...
procedure TForm1.AllOverNode(node: TTreeNode);
var
i: Integer;
begin
if node = nil then Exit;
sl.add(node.Text);
for i := 0 to node.Count - 1 do
AllOverNode(node.Item[i]);
end; //大致是这样的,我没具体实现