***************简单的TreeView问题***********，给20分。

Question

//写代码不是不要时间的
//就算搜索也要
//不要急！procedure TForm1.Button1Click(Sender: TObject);
var
  I, J: Integer;
begin
  J := 0;
  if Assigned(TreeView1.Selected) then
    for I := 0 to TreeView1.Items.Count - 1 do
      if TreeView1.Items[I] = TreeView1.Selected then begin
        J := I + 1;
        Break;
      end;  for I := J to TreeView1.Items.Count - 1 do
    if TreeView1.Items[I].Text = Edit1.Text then begin
      TreeView1.Selected := TreeView1.Items[I];
      TreeView1.SetFocus;
      Exit;
    end;
  ShowMessage('No');
end;procedure TForm1.Edit1Change(Sender: TObject);
begin
  TreeView1.Selected := nil;
end;

Answer 1

zswang(伴水)(需要充充电):::给你10分，若行再给10分！