TreeView - ID auslesen

[Ayumi]

Ich habe einen TreeView der folgendermaßen aussieht:

Handy1
--Reihe9000
----Modell1
----Modell2
----Modell3
--Reihe7000
----Model1
----Model2
Handy2
etc.

Hinter jeder TreeNode ist die ID als Objekt gespeichert.

Wenn ich auf Modell 3 klicke, soll die ID von Modell3, ID von Reihe und ID von Handy ausgelesen werden.
Bis Reihe funktioniert es wunderbar, aber ich kann die ID von Handy nicht auslesen.

Delphi-Quellcode:

  for k:= 1 to TreeNode.Level do begin
    TreeNode := TreeNode.Parent;
    edit1.Text := pNode_rec(TreeNode.Item[treenode.Index].Data)^.ID;
  end;

Wenn ich aber auf handy draufklicke und

Delphi-Quellcode:

edit1.Text := pNode_rec(trvw_Handy.Selected.Data)^.ID;

ausführe, funktioniert es wunderbar.

Hat jemand eine Idee wie ich in meiner Schleife die ID von Handy auslesen kann?

Vielen Dank im Voraus
Ayumi

[Muetze1]

TreeNode.Data einfach, also warum dieser grosse Umweg über Items[] und Index? Schliesslich ist TreeNode doch der Knoten welcher, somit warum sich den Knoten nochmals aus der Liste holen, wenn man ihn doch schon in der Hand hat?

Delphi-Quellcode:

for k:= 1 to TreeNode.Level do 
begin
  TreeNode := TreeNode.Parent;

  If Assigned(TreeNode) Then  // safety first
    edit1.Text := edit1.Text + ' ' + pNode_rec(TreeNode.Data)^.ID; 
end;

[Ayumi]

Du hast recht!!!!

Das geht so viel einfacher. Es hat wunderbar funktioniert.

Vielen Dank :-D