Doppelte Einträge in einem Treeview verhindern

[Chemiker]

Hallo RWarnecke,

mir ist jetzt nicht ganz klar was Dein Problem ist, aber mit dieser Funktion kann man feststellen, ob man doppelte Einträge im TreeView vorhanden sind.

Delphi-Quellcode:

function IstDoppelt(Nod: TTreeNodes; StrKnoten: String):boolean;
var
  sNode: TTreeNode;
begin
  Result:= FALSE;                      // Eintrag noch nicht vorhanden.
  sNode:= nod.getFirstNode;            
  while sNode <> NIL do                // Solange prüfen bis kein Eintrag
  begin
    If (CompareText(sNode.Text, StrKnoten)=0) then // Ist der Knoten schon
    begin                                          // vorhanden?
      Result:= TRUE;                  //  Eintrag vorhanden
    end;
    sNode:= sNode.GetNext;            // nächster Knoten prüfen
  end;
end;

Bis bald Chemiker