怎么保证在treeview中一个母节点下一级没有重复的子节点

Question

嘻嘻，呆会给你搞定；
有一个问题要问你，你是要在写入的时候判断？还是写入后再判断？

Answer 1

procedure TForm1.TreeView1Edited(Sender: TObject; Node: TTreeNode;
  var S: String);
var
  vTreeNode: TTreeNode;
begin
  vTreeNode := Node.GetNextSibling;
  while Assigned(vTreeNode) do begin
    if SameText(vTreeNode.Text, S) then begin
      ShowMessage('同级节点重复');
      S := Node.Text;
      Exit;
    end;
    vTreeNode := vTreeNode.GetNextSibling;
  end;
  vTreeNode := Node.GetPrevSibling;
  while Assigned(vTreeNode) do begin
    if SameText(vTreeNode.Text, S) then begin
      ShowMessage('同级节点重复');
      S := Node.Text;
      Exit;
    end;
    vTreeNode := vTreeNode.GetPrevSibling;
  end;
end;