Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Pfad eines untergeordneten Knoten in einem Treeview ?? (https://www.delphipraxis.net/30620-pfad-eines-untergeordneten-knoten-einem-treeview.html)

valon 27. Sep 2004 10:43


Pfad eines untergeordneten Knoten in einem Treeview ??
 
Hallo !
Brauche dringend Hilfe!
Wenn ich den genauen Pfad eines untergeordneten Knoten in einem TreeView auslesen möchte, was muss ich da tun?
Ich finde momentan keine Funktion.
würde mich freuen wenn ihr mir helfen könntet. :-D

Muetze1 27. Sep 2004 10:52

Re: Pfad eines untergeordneten Knoten in einem Treeview ??
 
Moin!

Den übergeordneten Knoten findest du ja durch die Parent Eigenschaft des aktuellen Knotens:

Delphi-Quellcode:
Uebergeordnet := Aktueller.Parent;
Dabei sind Uebergeordnet und Aktueller beides TTreeNode. Nun kann es sein, das der Aktuelle Knoten schon der der oberste ist, dann ist Parent Nil und somit auch Uebergeordnet.

Da Uebergeordnet auch wieder ein TreeNode ist hat dieser wieder die gleichen Eigenschaften, daher kannst du dir den Pfad doch leicht in einer Schleife bauen:

Delphi-Quellcode:
Var
  Node : TTreeNode;
  Path : String;
Begin
  Node := Uebergeordnet;
  Path := '';

  Repeat
    Path := Node.Text + '/' + Path;
    Node := Node.Parent;
  Until ( Node = Nil );
 
  ShowMessage(Path);
End;
MfG
Muetze1

valon 27. Sep 2004 11:51

Re: Pfad eines untergeordneten Knoten in einem Treeview ??
 
vielen dank!

dein Quellcode wird mir sicherlich helfen.
Programiere erst seit 1 Woche Delphi.

Muetze1 27. Sep 2004 13:01

Re: Pfad eines untergeordneten Knoten in einem Treeview ??
 
Moin!

Ich habe ebend erst gesehen, das du ja von untergeordnet und nicht übergeordnet geredet hattest. Daher noch eine Ergänzung:

Wenn ein Knoten untergeordnete Elemente hat, dann ist z.B. die Eigenschaft HasChildren true und man findet die einzelnen Knoten in der Eigenschaft Item. Um zu wissen, wieviele Knoten es darin gibt, kann man die Eigenschaft Count abfragen und z.B. iterativ auf die Kinder eines Knotens zugreifen:

Delphi-Quellcode:
  For i := 0 To Node.Count-1 Do
    ShowMessage(Node.Item[i].Text);
MfG
Muetze1


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:20 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz