关于TreeView的问题，请各位大虾帮帮忙，只有10分了不是不给。。。

Question

初次使用很多东西不太了解，HELP也看不太懂 就是TreeView运行时动态加入节点的问题，而且如果TreeView中已经存在要加入的同级节点则不加
  节点分3级依次是年-月-日，

Answer 1

而且如果TreeView中已经存在要加入的同级节点则不加这句意思就是 如果TreeView里同级节点中已经存在要加入的节点则不加我文采不好~

Answer 2

判断一下,如果TreeView.selected.index<>-1则加到下一级.

Answer 3

procedure TForm1.Button2Click(Sender: TObject);
var
  TempNode, CurrNode: TTreeNode;
begin
  with TreeView1 do begin
    CurrNode := Selected;    if CurrNode = nil then
      if Items.Count = 0 then begin
        Items.AddChild(Nil, Edit1.Text);
        exit;
      end else
        TempNode := Items[0]
    else
      TempNode := CurrNode.getFirstChild;
    while TempNode <> nil do begin
      if TempNode.Text = Edit1.Text then
        exit;
      TempNode := TempNode.getNextSibling;
    end;
    Items.AddChild(CurrNode, Edit1.Text);
  end;
end;