Home » Tipps & Tricks » Komponenten » TTreeView/TListView » Pfad eines TreeNodes

Pfad eines TreeNodes

Dieser Artikel zeigt, wie Sie sich den kompletten „Pfad“ eines Nodes in einer TreeView-Komponente anzeigen lassen können.Es ist folgende Baumstruktur gegeben:

Test1
 |- Test11
 |   |- Test111
 |   |- Test112
 |   |- Test113
 |   |- Test114
 |- Test12

Der Pfad des Nodes „Test113“ lautet beispielsweise „Test1Test11Test113“. Bei „Test12“ ist es „Test1Test12“.Folgende Funktion, die als Parameter einen TreeNode erwartet, erledigt diese Aufgabe:

function GetNodePath(ANode: TTreenode; ADelimiter: Char=''): String;
begin
  Result := '';

  while assigned(ANode) do 
  begin
    Result := ADelimiter + aNode.Text + Result;
    ANode := ANode.Parent;
  end;

  if Result  '' then
    Delete(Result,1,1);
end;

In diesem Beispiel wird die Funktion mit dem selektierten Node aufgerufen:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetNodePath(TreeView1.Selected));
end;