TreeView - пройтись по всем узлам, начиная с выделенного

[mihali4]

mihali4 это я про то, что если вдруг понадобится просто пробежаться по дереву, начиная с выделеного, дальше первого узла-детёныша не пойдёт.

Я всесторонне проверил по шагам прежде, чем вам предлагать - обход всех ветвей, и последним уничтожается выбранный...
Доказывайте, что я не прав. Ваш проект? (вернее, "проба пера", весь не нужен).
Я, со своей стороны, предлагаю свой:
Project1.rar

[Alter]

Собственно вот:

procedure TForm1.CtNode(Node :TTreeNode);
var tmpnod: TTreeNode;
    tmp: string;
begin
 while Node.GetFirstChild<>nil do
  CtNode(Node.GetFirstChild);
 tmpnod:=Node;
 Node.Text := 'Удалён!';
 //tmp:=tmpnod.Text;
 //ShowMessage('Будет удален узел '+tmp);
 //Node.Delete;
 Application.ProcessMessages;
end;

Если НЕ требуется их удалять, а пройтись по узлам.

[mihali4]

Если НЕ требуется их удалять, а пройтись по узлам.

Вы что-то совсем заэкономились на словах. Эдакие фразы, как будто процеженные сквозь зубы. Понять очень трудно, поверьте. Это вы - в своей теме, а я...
Это первое.
Второе. Напомню ваш первый пост: "Нужно начиная с выделенного узла пройтись по всем его вложенным узлам. (Тут ваши проблемы) После прохода уже можно будет удалить выделенный узел со всеми под узлами.".
Мой вариант не выполняет это требование?
Вы убрали главную операцию, которая и обусловливает выполнение рекурсии! Тем самым изменили вполне рабочий код и возмущаетесь, что он теперь не так работает?
Я вас просто перестаю понимать...

[Alter]

Никто не возмущается, этот код вполне подошёл. mihali4 перефразирую 2-ой вариант вопроса, который не понимаете, "Как бы вы сделали тот же обход, но без Node.Delete;". "Просто пробежаться по дереву" - это значит, в данном случае удалять пройденый узел не надо.
Dj_smart, пробывали ли вы реализовывать свой метод?

[Dj_smart]

Dj_smart, пробывали ли вы реализовывать свой метод?

Да, приходилось при написании своего языка(скрипты), в котором можно было бы сделать чтото типо begin... end.
К сожалению кода привести не могу, винда унесла всё с собой...