怎么样在TreeView里面查找内容呀？

Question

是不是在一棵树中找到特定的值啊?可以写一个递归什么的来找.Node.Items[] 下面存放的是子接点,可以按照这个写递归.

Answer 1

Node:=TreeView.Items.GetFirstNode;
While Node<>nil  do
begin  
s:=Node.Text;
....
Node:=Node.getNext;// GetNextSibling;
end;

Answer 2

for i:=0 to treeview.items.count-1 do
  if treeview.items.item[i].text=yourstring then begin
      return this node or some information
      breake
  end

Answer 3

procedure TForm1.Button2Click(Sender: TObject);
var
  s:string;
  i:integer;
begin
  s:=edit4.Text ;
  for i:=1 to TreeView1.items.count-1 do
    if treeview1.Items.Item[i].Text =s then
      begin
        treeview1.Items.Item[i].Selected ;
      end;
end;end.这样怎么执行不了？呀

Answer 4

是不是知道子结点，要找父结点？可以用parent属性呀。

Answer 5

procedure TForm1.Button2Click(Sender: TObject);
var
  s:string;
  i:integer;
begin
  s:=edit4.Text ;
  for i:=1 to TreeView1.items.count-1 do
    if treeview1.Items.Item[i].Text =s then
      begin
        treeview1.Items.Item[i].Selected ;
        break;           //////////tiao chu
      end;
end;end.

Answer 6

基本同意scripting(scripting)
var myNode:TTreeNode;
for i:=0 to treeview.items.count-1 do
  if treeview.items.item[i].text=(Edit1.text+''+Edit2.text) then  
  begin
    myNode:=Treeview1.Items.Item[i];
    Treeview1.selected:=myNode;
    breake;
  end;

Answer 7

是for i:=0 to treeview.items.count-1 do
不是for i:=1 to treeview.items.count-1 do是treeview1.Items.Item[i].Selected :=true;
不是treeview1.Items.Item[i].Selected;

Answer 8

procedure TForm1.Button2Click(Sender: TObject);
var
  s:string;
  i:integer;
begin
  s:=edit4.Text ;
  for i:=1 to TreeView1.items.count-1 do  //这里是 i := 0 to ……
    if treeview1.Items.Item[i].Text =s then
      begin
        treeview1.Items.Item[i].Selected ;
        break;           //////////tiao chu
      end;
end;end.
字符串是从 1 开始的。

Answer 9

procedure TForm1.Button2Click(Sender: TObject);
var
  s:string;
  i:integer;
begin
  s:=edit4.Text ;
  for i:=0 to TreeView1.items.count-1 do
    if treeview1.Items.Item[i].Text =s then
      begin
        treeview1.Items.Item[i].Selected:=true ;
        break;           //////////tiao chu
      end;
end;end.
这段程序为什么不是查父节点呢？
为什么运行以后只能查子节点呢？
怎么能够一点查找，就查父点，然后使父节点被选中？