关于TTreeView查找节点的问题

Question

我想根据一个字符串在TTreeView中查找节点,
在delphi中语句该怎么写?等待

Answer 1

var
 i:integer;
begin
   for i:=0 to treeview1.Items.Count-1 do
   begin
      if edit1.Text =treeview1.Items[i].Text then
      begin
         treeview1.Items[i].Selected :=true;
         showmessage('找到');
          break;
      end;
   end;
end;

Answer 2

TTreeView真的是个接口弄得很差的VCL,当然这不是Delphi的错,是MS干的好事!