![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
delphi树结构,中怎么区分根节点,叶子节点;就是如何只遍历某个层次,和遍历某个层次下的所有叶子节点;
2个回答
展开全部
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
Level: integer;
begin
Level:= 0;
Memo1.Lines.Clear;
for i:= 0 to TreeView1.Items.Count - 1 do
begin
//TreeView1.Items.Item[i].Level :层次级别
//按每级根目录来遍历。
if TreeView1.Items.Item[i].Level = Level then
begin
GetTreeViewLevel(TreeView1.Items.Item[i], Level);
Memo1.Lines.Add('');
end;
end;
end;
//递归函数
function TForm1.GetTreeViewLevel(tempNode: TTreeNode; Level: integer): integer;
var
i: integer;
begin
Memo1.Lines.Add('NodeText: ' + tempNode.Text);
Memo1.Lines.Add('NodeLevel: ' + IntToStr(Level));
Level:= Level + 1;
for i:= 0 to tempNode.Count - 1 do
begin
if tempNode.Item[i].Level = Level then
GetTreeViewLevel(tempNode.Item[i], Level);
end;
end;
var
i: integer;
Level: integer;
begin
Level:= 0;
Memo1.Lines.Clear;
for i:= 0 to TreeView1.Items.Count - 1 do
begin
//TreeView1.Items.Item[i].Level :层次级别
//按每级根目录来遍历。
if TreeView1.Items.Item[i].Level = Level then
begin
GetTreeViewLevel(TreeView1.Items.Item[i], Level);
Memo1.Lines.Add('');
end;
end;
end;
//递归函数
function TForm1.GetTreeViewLevel(tempNode: TTreeNode; Level: integer): integer;
var
i: integer;
begin
Memo1.Lines.Add('NodeText: ' + tempNode.Text);
Memo1.Lines.Add('NodeLevel: ' + IntToStr(Level));
Level:= Level + 1;
for i:= 0 to tempNode.Count - 1 do
begin
if tempNode.Item[i].Level = Level then
GetTreeViewLevel(tempNode.Item[i], Level);
end;
end;
追问
现在的程序有这么个问题,一级下面有二级,二级下面有三级,三级下面有四级,现在我遍历二级的目录,三级有一个不含四级的,在遍历二级的时候老是把这个不含四级的三级也遍历到呢
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询