var j,i,k:integer; str:string; begin str:=''; for i:=0 to treeview1.Items.Count do begin if treeview1.Items.Item[i].Text=treeview1.Selected.Text then begin k:=i; break; end; end; for i:=0 to k-1 do str:=str+ #13#10+treeview1.Items.Item[i].Text ; showmessage(str); end; 如果要同层节点,在if 条件处加上treeview1.items.item[i].parent=treeview1.selected.parent,就可以了。 你试验一下吧!
逻辑层次就很清楚了
j,i,k:integer;
str:string;
begin
str:='';
for i:=0 to treeview1.Items.Count do begin
if treeview1.Items.Item[i].Text=treeview1.Selected.Text then begin
k:=i;
break;
end;
end;
for i:=0 to k-1 do
str:=str+ #13#10+treeview1.Items.Item[i].Text ;
showmessage(str);
end;
如果要同层节点,在if 条件处加上treeview1.items.item[i].parent=treeview1.selected.parent,就可以了。
你试验一下吧!