Определение полного пути папок TreeView

[vitawt]

Как в TreeView определить полный путь папки: от начальной(первой при построениие дерева) до выделенной(TreeView1.Selected.Text)

Зарание спасибо

[mihali4]

Лучше делать наоборот - последовательно искать родителей от выделенной ветви до корневой (когда Parent=nil). Так гораздо проще.

[vitawt]

Сообщение от mihali4

Лучше делать наоборот - последовательно искать родителей от выделенной ветви до корневой. Так гораздо проще.

как ?))) если делать циклом, то сколько раз повторять его ? возможно есть какое-то свойство, чтобы определить кол-во повторений цикла для поиска родителя ...

[_Engine_]

повторять до тех пор, пока св-во Parent <> nil

[vitawt]

хотелось бы увидеть код, если не сложно. Пробовал сам делать - ничего не вышло, т.к. не знаю как построить цикл (

[mihali4]

Ну так показывайте вашу пробу.
А если вы просто за халявой - перенесу в "Помощь студентам" или во "Фриланс".
Вам уже все детально объяснили. Теперь нам непонятно, что там можно не понять.
Приводите свой код.

[vitawt]

procedure TForm1.Button6Click(Sender: TObject);
var
FullPath,a,c,d,e,g: string;
b,i:integer;
begin
for i:=0 to TreeView1.Selected.Level do begin
a:=a+TreeView1.Selected.Parent.Text;


end;
    end;

я, конечно, понимаю, что Selected он всегда берет то что выделенно, а как по-другому записать не могу разобраться(возможно есть какое-то индвидуальное свой-ство для каждой папки дерева, чтобы к ней обращатсья за Text)

[mihali4]

Что ж тут сложного-то?

var mytn: TTreeNode;
begin
ListBox1.Clear;
mytn:=TreeView1.Selected;
while mytn<>nil do
begin
ListBox1.Items.Add(mytn.Text);
mytn:=mytn.Parent;
end;
end;

[vitawt]

вот оно что =))
Большое спасибо !!!