Pfad eines TreeNodes |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;