一个小问题！！！！

Question

小弟现在有treeview控件，edit,和button控件，现在的需求是：点击button控件后，treeview的焦点落在名字等于edit内容的那个组上。treeview中大概有100多个组，希望老大贴出代码，小弟对treeview不是很熟

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  TreeView1.HideSelection := False;
  for i := 0 to TreeView1.Items.Count - 1 do
    if TreeView1.Items[i].Text = Trim(Edit1.Text) then
    begin
      TreeView1.Selected := TreeView1.Items[i];
      Break;
    end;
end;

Answer 2

楼上的我想问一下。 Trim(Edit1.Text) 里 Trim是什么意思啊？我是菜鸟，大家别逼视我。

Answer 3

去除Edit1.Text內文字兩邊的空格

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i=treeview1.items.count-1 downto 0 do
  begin
    if treeview1.items[i].text = edit1.text then 
      treeview1.items[i].selected;
  end
end;

Answer 5

treeview  完全展开后 不同层次会有重名  打算怎么处理？