在BCB6中使用XML

——需要的包  #include <XMLDoc.hpp>

 ——相关说明 _di_IXMLDocument 为模板类 

 typedef System::DelphiInterface< IXMLDocument > _di_IXMLDocument; 

 _di_IXMLNode :      typedef System::DelphiInterface< IXMLNode > _di_IXMLNode;  

_di_IXMLNodeList 同  ——类方法  //设置参数 

void TXXX::setOptions(String name,String value)

{  //创建文档对象 

_di_IXMLDocument XMLDoc = LoadXMLDocument(L"文件路径"); 

XMLDoc->Active=true;  //文档根节点 

_di_IXMLNode root = XMLDoc->DocumentElement;  //想要查找节点 

_di_IXMLNode tempNode;  //调用搜索方法

 searchXml(name,root,tempNode);  // 处理 

if(tempNode!=NULL) tempNode->SetText(value); 

XMLDoc->SaveToFile(L"文件路径"); } //递归搜索参数节点树

 void TXXX::searchXml(String name,_di_IXMLNode &Parent_Node,_di_IXMLNode& tempNode)

{  _di_IXMLNode Child_Node; //子结点 //子节点列表

 _di_IXMLNodeList list = Parent_Node->ChildNodes; 

for(int i=0;i<list->Count;i++)

 { Child_Node = list->Get(i); 

//递归结束条件

 if(Child_Node->GetNodeName()==name) 

{ 

tempNode = Child_Node; 

break; 

} 

else 

{

 //递归函数 

searchXml(name,Child_Node,tempNode);

 } 

} 

}  

希望多指教