Delphi.MySQL. Рекурсивный поиск всех подчиненных записей в иерархической таблице

Если таблица у нас иерархическая, то есть выглядит примерно так…

4

То часто возникает задача найти всех потомков какой-либо записи. Сделать это можно вполне рекурсивно следующим образом…

Формируем глобальную переменную-список, в которую будем складывать ID родителя и всех потомков

Создаем её, например в FormCreate… и уничтожаем в FormDestroy, На этом останавливаться не буду.

Ну и собственно, рекурсивно ищем всех потомков и складываем ID записей в наш список…

 

Добавить комментарий