knoten löschen

[phoenix_ft]

hi
auch auf die Gefahr hin, etwas doppelt zu posten (habe nichts gefunden, was mir wirklich hilft)
ich möchte einen markierten knoten löschen

Delphi-Quellcode:

procedure TForm1.Knotenlschen1Click(Sender: TObject);

var Node: TTreeNode;
begin
    Node := Baum.Selected;
    if Assigned(Node) then
        Baum.Items[Node].Delete;
end;

so wenn ich es so stehen habe
sagt mir mein Programm
[DCC Fehler] Treeview.pas(111): E2010 Inkompatible Typen: 'Integer' und 'TTreeNode'
habe es irgendwo mit [i] gesehen hatte es mit [Node] probiert, aber auch ohne eine solche angabe :

Delphi-Quellcode:

procedure TForm1.Knotenlschen1Click(Sender: TObject);

var Node: TTreeNode;
begin
    Node := Baum.Selected;
    if Assigned(Node) then
        Baum.Items.Delete;
end;

[DCC Fehler] Treeview.pas(111): E2035 Nicht genügend wirkliche Parameter
nun weiß ich nicht, wie ich zum gewünschten ergebnis komme?!
Danke für die Hilfe

[Tyrael Y.]

Du hast es doch schon fast gehabt.

Delphi-Quellcode:

procedure TForm1.Knotenlschen1Click(Sender: TObject);

var Node: TTreeNode;
begin
    Node := Baum.Selected;
    if Assigned(Node) then
        Baum.Items.Delete(Node);
end;

[phoenix_ft]

daaanke