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

@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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .	тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .
Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .	сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.	сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты	Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад). Hrethgir 24.07.2026 В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .

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

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

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