ttreeview ab einem Unterknoten alles auslesen

[wwild0473]

Hallo nochmal,

nach etwas Granufink im Tee hat sich die procedure geklärt. Hier der funktionierende Quellcode für die Funktion, damit andere mit dem gleichen Problem Abhilfe finden :-)

Delphi-Quellcode:

procedure tdlnode.Grab(node: TTreeNode);
var 
  TmpNode : TTreeNode; 
begin 
  If Node <> Nil then

  TmpNode:=Node.getFirstChild; 
  While (TmpNode<>Nil) do
    begin
      showmessage(tmpnode.Text); 
     grab(TmpNode);
     TmpNode:=Node.getNextChild(TmpNode); 
    end;

end;

Anmerkung: Der Parameter "node" ist der Startpunkt.

Danke nochmal für den Hinweis!