Entwickler-Ecke :: Thema anzeigen - ...den Node-Pfad (als String) in einer TreeView ermitteln?

Tino - Mo 19.05.03 12:01
Titel: ...den Node-Pfad (als String) in einer TreeView ermitteln?

den Node-Pfad (als String) in einer TreeView ermitteln?

Möchte man den Pfad einer Node ermitteln reicht der Aufruf der folgenden Funktion:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Function GetTreeNodePath (aNode: TTreeNode; aDiv: String): String;
Begin
  If Assigned (aNode) Then
    If Assigned (aNode.Parent) Then
      GetTreeNodePath := GetTreeNodePath (aNode.Parent, aDiv) + aDiv + aNode.Text
    Else
      GetTreeNodePath := aNode.Text
  Else
    GetTreeNodePath := '';
End;

Diese Funktion kann zum Beispiel in dem OnChange-Event einer TreeView aufgerufen werden:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); 
begin 
  Label1.Caption := GetTreeNodePath (Node, '/');
  // oder
  // Label1.Caption := GetTreeNodePath (Node, ' -> ');
end;

Moderiert von jasocul: Beitrag geprüft am 22.05.2006

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!