procedure GetInfo(TreeNode:TTreeNode); var i:integer; begin for i:=0 to TreeNode.Count-1 do begin if TreeNode[i].HasChildren then begin Showmessage(TreeNode.Item[i].Text); GetInfo(TreeNode[i]); end else Showmessage(TreeNode.Item[i].Text); end; end; GetInfo(TreeView.Selected);//调用
var
i:integer;
begin
for i:=0 to TreeNode.Count-1 do
begin
if TreeNode[i].HasChildren then
begin
Showmessage(TreeNode.Item[i].Text);
GetInfo(TreeNode[i]);
end
else
Showmessage(TreeNode.Item[i].Text);
end;
end;
GetInfo(TreeView.Selected);//调用