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

[Alter]

Нужно начиная с выделенного узла пройтись по всем его вложенным узлам. Нужно для того чтобы освободить вручную память по указателю хранящемуся в Data узла. Подходящего на форуме невстретилось на этот вопрос. После прохода уже можно будет удалить выделенный узел со всеми под узлами.

[mihali4]

Выделенный - Selected.
Проверяем на HasChildren и сколько их - Count.
Если да, то GetFirstChild, GetNextChild.
Функция должна допускать рекурсивный вызов.

[Alter]

Я знаю что выделенный это Selected. Но может кто-то уже делал продвижение по всем узлам вручную, с выделенного. Попробую, может получится.

[Alter]

Сообщение от mihali4

Выделенный - Selected.
Проверяем на HasChildren и сколько их - Count.
Если да, то GetFirstChild, GetNextChild.
Функция должна допускать рекурсивный вызов.

Вот что получилось:

procedure CtNode(Node :TTreeNode);
var
   I,Cou: integer;
begin
  Delay(1000);               // для
  Node.Text := '-------'; // наглядности процесса
 While Node<>Nil DO
 begin
   Cou := Node.Count;
  If Node.HasChildren and (Cou>0) then
   CtNode(Node.getFirstChild);

   Node := Node.GetNextChild(Node);
  If Node<>Nil then
     CtNode(Node);
 end;
end;

Но работает не совсем как надо(красным), это видно на рисунке:

[mihali4]

Похоже, вы решили перехитрить самого себя

procedure CtNode(Node :TTreeNode);
var tmpnod: TTreeNode;
begin
while Node.GetFirstChild<>nil do
CtNode(Node.GetFirstChild);
Node.Delete;
Application.ProcessMessages; //для наглядности, когда по шагам :)
end;

[Alter]

Вот Delay:

procedure Delay(msecs :Longint);
var
   targettime: Longint;
   Msg: TMsg;
begin 
 targettime := GetTickCount + msecs;
 while targettime>GetTickCount do
 if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
 begin
  If Msg.message = WM_QUIT Then
  begin
   PostQuitMessage(msg.wparam);
   Break;
  end;
   TranslateMessage(Msg);
   DispatchMessage(Msg);
 end;
end;

Спасибо подошло, только если придётся просто пройтись от выделенного узла, то застопорится, т.к неудалит узел.

[mihali4]

В ваш последний пост номер 6 "не въехал"...

[Dj_smart]

Поддерживаю. В #4 убейте не вижу рисунка и следовательно того, что должно быть выделено красным

[Alter]

Сообщение от Dj_smart

Поддерживаю. В #4 убейте не вижу рисунка и следовательно того, что должно быть выделено красным

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

[Dj_smart]

Т.е. я так понял оно захватывает лишний элемент?
Я бы вообще предложил пойти другим путём, узнать есть ли чилдрены у нужного елемента, е если есть, то узнать k:=node.level (уровень) первого чилдрена. Ну и потом while checknode.level>=k do ... т.е проганяем все тогоже уровня, что и первый чилдрен, ну или глубже