Alle Parents von TTreeView-Node herausfinden

[Basic-Master]

Hi,
ich hab eine Node x, die in einem Treeview, in mehreren Items Subitem. Wie kann ich alle Parents von dem Item x herausfinden?

[Christian Seehase]

Moin Basic Master,

was meinst Du mit "Alle Parents".
Jeder TreeNode hat genau einen Parent, ggf. nil, wenn er sich auf der obersten Ebene befindet.

Mit z.B.

Delphi-Quellcode:

var
  tnWork : TTreeNode;

begin
  tnWork := Node;
  while tnWork.Parent <> nil do begin
    tnWork := tnWork.Parent;
  end;
end;

Kannst Du Dich "nach oben hangeln"
Node darf hier natürlich nicht nil sein ;-)

[Basic-Master]

Hi,
thx für den Code :D 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;

[Christian Seehase]

Moin Basic Master,

diese Art der Verwendung hatte ich mir schon gedacht ;-)

Aber denk' dran:
Du musst auch sicher sein (bzw. prüfen), das Node wirklich einen Wert enthält, und nicht eventuell = nil ist.
Ansonsten bekommst Du sofort eine AV wenn Du versuchst tnWork.Parent abzufragen.