Weg zum selektiertem Node

[Tpercon]

Ich habe ein TreeView mit Untereinträgen über mehreren Ebenen. Ich möchte in einem String die Beschriftungen aller Einträge vom Node mit dem Level 0 zum selektierten Node hintereinander eintragen, so dass ich den 'Weg' darin gespeichert habe. Wie macht man das

[jbg]

Du gehst einfach alle Parents durch:

Code:

var
  S: string;
  N: TTreeNode;
begin
  ...
  N := SelectedTreeNode;
  S := '';
  while N <> nil do
  begin
    S := N.Caption + '\' + S;
    N := N.Parent;
  end;
  Delete(S, Length(S), 1); // überzähliges '\' entfernen
  ...
end;

[Daniel]

Hi ,

ich denke, dass der umgekehrte Weg einfacher ist. Vom selektierten Knoten aus kannst Du über die Eigenschaft 'Parent' jeweils eine Stufe höher kommen, bis 'Parent' = NIL ist. Folgender Code-Block macht das Prinzip deutlich:

Code:

  aPath:= '';
  aNode:= SelectedNode;
  While Assigned(aNode) Do
  Begin
    aPath:= aNode.Text + #32 + aPath;
    aNode:= aNode.Parent;
  End;

Grüße,
Daniel

Edit: Mist - war wieder jemand schneller.

[Tpercon]

Danke