TreeView的问题？(0分)

Function GetNodeFromLabel(pLabel: string;TreeView:TTreeView: TTreeNode; //用这个函数获得节点
Var I:integer;
begin
for I:=0 to TreeView.Items.Count - 1 do
begin
IF TreeView.Items.Text = pLabel then
begin
IF TreeView.Items<>Nil THEN
Begin
Result:=TreeView.Items;
break;
End;
End;
end;
end;

那如何指定节点来查找呢？在原来的节点上往下找中!!!谢谢!!!

好像直接有属性的吧,帮助看看吧

比如你知道了结点Node1,那你就从Node1.index往下找啊，
for i := Node1.index to ...

// 取得节点下得所有节点
function TForm1.zjdTreeView(Sender:TTreeview ):string;

var
node:TTreeNode;
child:TTreeNode;
i,j:integer;
idz,sql:string;
begin //1
node:=Treeview1.Selected ;
i:=node.Level;
idz:=inttostr(node.text);
child:=node.GetNext;

while child<>nil do
begin //2
j:=child.Level;
if j<=i then break;
idz:=idz +','+ inttostr(child.text);
child:=child.GetNext;
end; //2
zjdTreeView:=idz;
end;
// 取得节点下得所有节点结束

接受答案了.