Alle Parents von TTreeView-Node herausfinden

[Basic-Master]

Hi,
thx für den Code so hab ich es abgeändert:

Delphi-Quellcode:

var 
  tnWork : TTreeNode; 
  Str:String;
begin
  Str := S;
  tnWork := Node; 
  while tnWork.Parent <> nil do begin 
    tnWork := tnWork.Parent;
    Str := Str + ' ' + tnWork.Text;
  end;
ShowMessage(Str);
end;