delphi中当treeview节点遍历有关问题
delphi中当treeview节点遍历问题
delphi中当treeview选中一个节点时如何遍历这个节点下的所有一级节点
------解决方案--------------------
delphi中当treeview选中一个节点时如何遍历这个节点下的所有一级节点
------解决方案--------------------
- Delphi(Pascal) code
procedure getNode(tn:TTreeNode);
var
i:integer;
begin
for i:=0 to tn.Count-1 do
begin
Form1.Memo1.Lines.Add(tn.Item[i].Text);
if tn.Item[i].HasChildren then
getNode(tn.Item[i]);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
getNode(TreeView1.Items[StrToInt(Edit1.Text)]); //Edit1输入节点
end;
------解决方案--------------------