Работа с TreeView

Тема в разделе "Delphi - Компоненты", создана пользователем Zuk, 12 дек 2004.

Статус темы:
Закрыта.
  1. Zuk

    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/...
    и т. д.

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

    Barmutik Гость

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

    Код (Text):
    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;
     
  3. Guest

    Guest Гость

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

    Barmutik Гость

    Отлично! Удачи!
     
Загрузка...
Похожие Темы - Работа TreeView
  1. bobo
    Ответов:
    1
    Просмотров:
    2.463
  2. Andrey Kha
    Ответов:
    0
    Просмотров:
    32
  3. Hoasker
    Ответов:
    0
    Просмотров:
    65
  4. garri671
    Ответов:
    0
    Просмотров:
    57
  5. lelik200969
    Ответов:
    0
    Просмотров:
    54
Статус темы:
Закрыта.

Поделиться этой страницей