Проблема с рекурсивным обходом дерева

@SeGun · Регистрация: 23.05.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте, уважаемые форумчане.

Построил дерево контрагентов, таблица (contra), привязанное к базе данных поля ID, PARENTID ..., VISIBLE.
У меня есть процедура, которая удаляет 1 выделенный элемент дерева и соответственно из таблицы contra.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TForm1.MenuItem3Click(Sender: TObject);
var id, id1:integer;
begin
IF TreeContra.Selected <> nil Then
   Begin
   if TreeContra.Selected.HasChildren then
   begin
     showmessage('Нельзя удалить элемент! Есть вложенные. Сначала нужно удалить их.');
     exit;
   end;
   ID:=Integer(TreeContra.Selected.Data);
   DM1.QContra.Close;
   DM1.QContra.SQL.Clear;
   DM1.QContra.SQL.Add('Select * From Contra Where ID=:ID');
   DM1.QContra.Params.ParamByName( 'ID').Value:=ID;
   DM1.QContra.Open;
    if ID = 0 then
    begin
      showmessage('Самый верхний уровень удалять нельзя!');
     exit;
    end;
   for id1 := 0  to DM1.QContra.RecordCount-1  do
   begin
        DM1.QContra.Delete;
   end;
    TreeContra.Items.Delete(TreeContra.Selected);
   End;
 
end;

Но это не совсем то чего я хочу, мне нужно рекурсивно обойти все подветви дерева,
начиная с выделенной и записать в поле VISIBLE (c запросом на обновление справлюсь) значение F.

Добавлено через 4 часа 24 минуты
На одном из сайтов товарищ предлагает такое решение:

It's easiest to do this recursively, something like this:

Delphi
1
2
3
4
5
6
7
8
9
procedure WalkChildren(Node: TTreeNode; List: TList<TTreeNode>);
var
  i: Integer;
begin
  List.Add(Node);
  for i := 0 to Node.Count-1 do begin
    WalkChildren(Node[i], List);
  end;
end;

Call it like this:

List := TList<TTreeNode>.Create;
WalkChildren(Root, List);
This example adds to a list but you can replace that action with one of your choosing.

Но что имеется ввиду под списком, синтаксис которого(List: TList<TTreeNode>) не работает (скорее всего это какое то общее представление..
И будет ли работать отсюда

Delphi
1
TreeContra.Selected

@SeGun · 16.12.2022, 13:50 **[ТС]**

Цель этого действа - скрыть элементы которые не нужны в данный момент и при обновлении дерева из базы не отображать то что не Visible. Например, мы не работаем с каким либо из поставщиков длительный период времени.
Думаю, что аналогично работает в некоторых программах - пометить объект удаленным.

@krapotkin · 16.12.2022, 14:22

поэтому я собсно и спросил - нужно ли это для всех пользователей. Если да - то нет вопросов

@SeGun · 16.12.2022, 18:59 **[ТС]**

Да. Конечно для всех.

Новые блоги и статьи Все статьи Все блоги /
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .

@SeGun 130 / 109 / 22 Регистрация: 23.05.2015 Сообщений: 727
	16.12.2022, 13:50 [ТС]
	Цель этого действа - скрыть элементы которые не нужны в данный момент и при обновлении дерева из базы не отображать то что не Visible. Например, мы не работаем с каким либо из поставщиков длительный период времени. Думаю, что аналогично работает в некоторых программах - пометить объект удаленным. 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,686 Записей в блоге: 21
	16.12.2022, 14:22
	поэтому я собсно и спросил - нужно ли это для всех пользователей. Если да - то нет вопросов 0

@SeGun 130 / 109 / 22 Регистрация: 23.05.2015 Сообщений: 727
	16.12.2022, 18:59 [ТС]
	Да. Конечно для всех. 0