delphi dom创建节点方法

在一次测试demo中 需要动态的创建xml节点并添加，实现方法如下：

var

   NewItem:IXMLDOMElement;

 

       NewItem:=ConfigDoc.createElement('item');  // 节点名称
       NewItem.setAttribute('id',GroupName);         //以下为节点各属性值
       NewItem.setAttribute('module',ModuleName);
       NewItem.setAttribute('name',ControlName);
       NewItem.setAttribute('state',BoolToStr(ConditonState,true));
       ControlItem.appendChild(NewItem) ;   //增加子节点
       ConfigDoc.save('config.xml');           //保存