Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 03.04.2014, 11:35   #1
Xme1ez
Пользователь
 
Регистрация: 05.06.2012
Сообщений: 12
По умолчанию Рекурсия поиска по treeview.

Здравствуйте, возникла проблема поиска по treeview в delphi.

затрудняюсь, составить алгоритм рекурсии по дереву. Что собственно говоря требуется: пройти по всем узлам дерева и создать такое же дерево только в html. Т.е. список с подуровнями. Узлы 0-ого уровня это нумерованный список, а все остальные - маркированный.
Вот что у меня получилось:

Код:
begin
    memo3.Lines.Add('<ol>');
    for i := 0 to TreeView1.Items.Count-1 do
      begin
        if TreeView1.Items.Item[i].HasChildren=false then
          begin
          rekurs(i);
          end
        else
        if TreeView1.Items.Item[i].HasChildren=true then
          begin
            rekurs(i);
            memo3.Lines.Add('<ul>');
            for j := 0 to StrToInt(memo2.Lines[i])-1 do
              begin
                rekurs(j);
              end;
            memo3.Lines.Add('</ul>');
          end;
      end;
      memo3.Lines.Add('</ol>');
end;

function TForm1.rekurs(index: integer):integer;
begin
    memo3.Lines.Add('<li>');
    memo3.Lines.Add('текст');
    memo3.Lines.Add('</li>');
end;
Проблема в том, что неправильно вставляются теги для вложенных узлов.
Помогите, если не трудно.
В мемо2 хранится ко-во подузлов для каждого узла.

Последний раз редактировалось Xme1ez; 03.04.2014 в 11:38.
Xme1ez вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ASP.NET C# компонент TreeView. Перетащить какой - либо пункт меню из TreeView в TextBox Claster ASP.NET 0 02.01.2013 18:59
Форма поиска (несколько параметров поиска) Nastasya83 Microsoft Office Access 1 19.04.2012 15:48
макрос для поиска позиций и вывода данных на лист поиска mr-111 Microsoft Office Excel 12 13.03.2012 15:03
Преобразование префиксной формы в постфиксную (дерево поиска, рекурсия) FYBVFPFYBC Помощь студентам 0 12.12.2010 05:50