Работа с TreeView

[Zuk]

Привет, помоги пожалуста разобраться с TreeView.

Уменя есть готовое дерево такого типа:
На первом уровне есть несколько злементов
допустим 1 , 2, 3.
Каждый элемент имеет еще по несколько подэлементов и так примерно до 8 уровня. Число под элементов на любом уровне не известно.
то-есть кликаем на родительский элемент и в развернувшемся списке есть еще несколько подэлементов.
-1 - Родительский элемент в развернутом виде
- 11 - Дочерний в развернутом виде
111 -Конечне элементы
112
113
- +12 - Дочерний в свернутом виде
- +13
+2 - Родительский элемент в свернутом виде
...
+3
...
и. д

мне нужно рограммно из TreeView перевести в TMemo в таком виде:
1/11/111
1/11/112
1/11/113
1/12/ ...
1/13/...
2/...
3/...
и т. д.

Выручайте, два дня над хелпами сижу и никакого толку.

 

[Barmutik]

Возможно я не совсем понял Вашу проблему но как насчёт такого варианта (потенциально не оптимален, но что в голову за 3 минуты пришло):

var
I: Integer;
AFullText: string;
ANode: TTreeNode;
begin
for I := 0 to TreeView1.Items.Count - 1 do
begin
 if TreeView1.Items[I].Count = 0 then
 begin
  ANode := TreeView1.Items[I];
  AFullText := '';
  while ANode <> nil do
  begin
   if AFullText <> '' then
    AFullText := '\' + AFullText;
   AFullText := ANode.Text + AFullText;
   ANode := ANode.Parent;
  end;
  Memo1.Lines.Add(AFullText);
 end;
end;

 

[Guest]

Спасибо большое, все работает!!!
Как раз мне это и нужно было!!!

 

[Barmutik]

Отлично! Удачи!