How to delete all children of node in XML?

[Blaazen]

Hi,
how to delete all children of node in TXMLDocument? I cannot see any method for it there.
There's only:

Code: [Select]

function RemoveChild(OldChild: TDOMNode): TDOMNode;it seems it's not it.

EDIT: I forgot, it's about units Laz2_XMLRead, Laz2_XMLWrite and Laz2_DOM.

[Blaazen]

OK, this works:

Code: [Select]

  aDeviceNode:=ASectionNode.FirstChild;
  while assigned(aDeviceNode) do
    begin
      aNode:=aDeviceNode;
      aDeviceNode:=aDeviceNode.NextSibling;         
      ASectionNode.RemoveChild(aNode);       
    end;This removes all children nodes in ASectionNode.
Maybe it's possible to do it simplier (without aNode variable.), but I don't understand exactly what OldChild means and what value that function return.

[benohb]

Thank you for the information 

[Blaazen]

There can be added one line:

Code: [Select]

  aDeviceNode:=ASectionNode.FirstChild;
  while assigned(aDeviceNode) do
    begin
      aNode:=aDeviceNode;
      aDeviceNode:=aDeviceNode.NextSibling;         
      aNode:=ASectionNode.RemoveChild(aNode);   //modified   
      aNode.Free;   //added
    end;Function RemoveChild() removes child-node from the parent node (but it does not delete it) and returns reference to this node, which is now stand-alone.
Line aNode.Free deletes this node immediately; otherwise it is freed when whole XMLDocument is freed (it is Owner of all nodes).