Hallo Thorben_Ko,
wo Du in Deinem Quell – Code nun den Fehler hast kann ich nicht sagen.
Aber vielleicht hilft Dir diese Funktion weiter:
Delphi-Quellcode:
function SuchenUndLoeschen (Baum: TTreeNodes; StrKnoten: String):boolean;
var
Knoten: TTreeNode;
begin
Result:= FALSE;
Knoten:= Baum.getFirstNode;
while Knoten <> NIL do
begin
If (CompareText(Knoten.Text, StrKnoten)=0) then
begin
knoten.Delete;
Result:= TRUE;
Break;
end;
Knoten:= knoten.GetNext;
end;
end;
Es wird der Knoten gelöscht der mit dem Text in StrKnoten übereinstimmt.
Aufrufen kann man das ganze dann so:
Delphi-Quellcode:
SuchString:= Edit2.Text;
SuchenUndLoeschen (TreeView1.Items, SuchString);
In Edit2, wird in diesem Beispiel der gesuchte Begriff eingegeben und anschließend im TreeView gelöscht.
Zu beachten ist das auch die Kinder – Knoten die am Konten hängen mit gelöscht werden.
Willst Du den Knoten im Baum mit der Maus markieren und dann löschen, muss man allerdings anders vorgehen.
Bis bald Chemiker