delphi树结构，中怎么区分根节点，叶子节点；就是如何只遍历某个层次，和遍历某个层次下的所有叶子节点；

delphi树结构，中怎么区分根节点，叶子节点；就是如何只遍历某个层次，和遍历某个层次下的所有叶子节点；

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;

在二楼代码中加入 if Tree.Items[i].HasChildren then continue;表示如果这个节点有子节点,跳出 再看看别人怎么说的。