Daily Archives: 15.04.2016

Delphi. Иерархические данные. DBTreeView своими руками. Удаление потомков узла из TreeView

Posted on 15.04.2016 by Stanislav_Panteleev

Удаление потомков узла. По логике, перед тем как вставить что-то новое желательно, удалить старые элементы узла.

Процедуры очищения узла в дереве

//----------------------------Очищение узла от всех потомков в дереве-------------------------


procedure TCopyAndPasteThread.ClearNodeChildrenData(Node:TTreeNode);
//Вспомогательная процедура - рекурсивно очищает память под Data под всеми узлами

var i:integer;

begin

  if not (MainForm.TreeView1.Selected=Node) then
   begin
   If Node.Data<>nil then Dispose(Node.Data);
   end;


   for i := 0 to Node.Count-1 do
     Self.ClearNodeChildrenData(Node[i]);

end;

procedure TCopyAndPasteThread.ClearAllChildren;
//Непосредственное удаление из дерева

var Node:TTreeNode;
begin

Node:=MainForm.TreeView1.Selected;

ClearNodeChildrenData(Node);

Node.DeleteChildren;

end;

Процедуры очищения узла в дереве

//----------------------------Очищение узла от всех потомков в дереве-------------------------

procedure TCopyAndPasteThread.ClearNodeChildrenData(Node:TTreeNode);

//Вспомогательная процедура - рекурсивно очищает память под Data под всеми узлами

var i:integer;

begin

if not (MainForm.TreeView1.Selected=Node) then

begin

If Node.Data<>nil then Dispose(Node.Data);

end;

for i := 0 to Node.Count-1 do

Self.ClearNodeChildrenData(Node[i]);

end;

procedure TCopyAndPasteThread.ClearAllChildren;

//Непосредственное удаление из дерева

var Node:TTreeNode;

begin

Node:=MainForm.TreeView1.Selected;

ClearNodeChildrenData(Node);

Node.DeleteChildren;

end;

Posted in Delphi, Деревья | Comments Off

Daily Archives: 15.04.2016

Delphi. Иерархические данные. DBTreeView своими руками. Удаление потомков узла из TreeView

MY PROJECTS

Recent Posts

Categories