如何限制TTreeView元件的各個節點名稱不可重複？ 例如寫一個檢查程式，只要新增名稱與某節點名稱相同時，就出現重新更名警告訊息！

我的方法是 ... 1. 新增 Node (I). 在 AddNode 的時候, 先取得你要定在 TreeNode 的名稱 (e.g. TEdit.Text)    2. Update Node 的名稱 (I). 在 TreeView.Editing 時, 先取得目前 TreeNode 的名稱 (II).在 TreeView.Edited 時, 比對所有的 TreeNode 的名稱, 如果重覆, 就將名稱還原成 (I) 取得的文字    下面是我的範例, 希望對你有幫助    

type
  TForm1 = class(TForm)
    ...
  private
    sth: TStringStream;
    str, temp: String;
    function CheckRepeated( Sender: TObject; InStr: String): Boolean;
  end;
......
function TForm1.CheckRepeated( Sender: TObject; InStr: String): Boolean;
begin
    sth := TStringStream.Create( str);
    (Sender as TTreeView).SaveToStream( sth);
    if Pos( InStr, sth.DataString) > 0 then
        Result := True;
    sth.Free;
end;    procedure TForm1.TreeView1Editing(Sender: TObject; Node: TTreeNode;
  var AllowEdit: Boolean);
begin
    temp := Node.Text;
end;    procedure TForm1.TreeView1Edited(Sender: TObject; Node: TTreeNode;
  var S: String);
begin
    if CheckRepeated( Sender, S) then
    begin
        S := temp;
        ShowMessage( 'Repeated');
    end;
end;    procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
    (Sender as TTreeView).Selected.EditText;
end;    procedure TForm1.btAddNodeClick(Sender: TObject);
begin
    if CheckRepeated( (Sender as TTreeView), Edit1.Text) then
        ShowMessage( 'Repeated')
    else
        TreeView1.Items.Add( (Sender as TTreeView).Selected, Edit1.Text);
end;

上面的 CheckRepeated function 是我想出來, 不用 loop 去搜尋 TreeView 的小方法, 不知道這樣好不好, 希望各位多給些意見, 謝謝. 發表人 - FrederickPau 於 2002/12/01 02:18:11

Maybe you can use a TStringList to keep track of all node names since you can search for existing items in a string list easily.

Thank FrederickPau to advise with william!