Doppelte Einträge in einem TreeView vermeiden

[cYaONE]

Servus,

wisst ihr zufällig wie ich bei einem TreeView doppelte Einträge vermeiden kann?

Beispiel:

statt

Code:

+- testbaum
 |
 +- abc
 ||
 |+- test 1
 | 
 +- abc
  |
  +- test 2

möchte ich es so:

Code:

+- testbaum
 |
 +- abc
 ||
 |+- test 1
 |+- test 2

[Christian Seehase]

Moin cYaONE,

ich weiss jetzt nicht, was der Tree darstellen soll, und wie Du ihn aufbaust, aber Du könnest es eventuell auf diesem Wege machen:
(nicht näher überlegter Schnellschuss )

Durch die Items durchgehen, ob der Text schon enthalten ist.
Ist das der Fall, prüfen, ob der Level des Items der gleiche ist, wie der dessen, das Du hinzufügen willst.
Stimmt auch der Level überein, dann ist der Text schon an der selben Stelle enthalten.

[cYaONE]

Danke, Christian, ich habe inzwischen eine Lösung gefunden!

[Coder90]

Hi
Im DF konnte man mir irgendwie nicht helfen, darum versuch ich es mal hier.

Also, ich will auch das man einen Namen nur einmal benutzen kann:

Delphi-Quellcode:

var Item: Integer;

{...}

procedure TForm1.TreeView1Edited(Sender: TObject; Node: TTreeNode;
  var S: String);
begin
  for Item:=0 to TreeView1.Items.Count-1 do
  begin
    if TreeView1.Items[Item]<>Node then 
    if TreeView1.Items[Item].Text=S then
    begin
      MessageDlg('Der Name '''+S+''' ist bereits vorhanden.',mtError,[mbOK],0);
      Node.EditText;
      break;
    end;
  end;
end;

Ich glaube das " Node.EditText; " funktioniert nicht so richtig.