请各位大侠指正错误：BCB6.0修改XML文件;还有如何读取a?谢谢各位！！！

[ltq19780113]

请问：有个XML文件，BCB6.0如何修改<pk_group>a</pk_group>中a的值,还有如何读取a?谢谢各位！！！

<?xml version="1.0" encoding='UTF-8'?>
<ufinterface account="tpy63_wzx0731" billtype="4A" filename="" groupcode="" isexchange="Y" replace="Y" roottag="" sender="">
<bill id="">
<billhead>
<cgeneralhid>
</cgeneralhid>
<!--集团,最大长度为20,类型为:String-->
<pk_group>a</pk_group>
<!--公司最新版本,最大长度为20,类型为:String-->
<corpoid>a</corpoid>
<!--公司,最大长度为20,类型为:String-->

[ltq19780113]

我这样写的，不对，请各位大侠指正，谢谢！！！ _di_IXMLDocument XMLDocument=NewXMLDocument("1.0"); _di_IXMLNode parent=XMLDocument->AddChild("ufinterface"); _di_IXMLNode item=parent->AddChild("bill"); _di_IXMLNode itemnode=item->AddChild( "billhead" ); String spath = "F:\\cdpp\\pat2.xml"; XMLDocument->FileName = spath; //指定文件名 XMLDocument->Active = true; //激活XMLDocument, 载入文档内容 //取得XML文档节点个数 int NodeCount = XMLDocument->DocumentElement->ChildNodes->Count; //利用这种方法可以查找指定的XML节点 for (int i=0;i<NodeCount;i++) { _di_IXMLNode Node = XMLDocument->DocumentElement->ChildNodes->GetNode(i); AnsiString NodeCaption = (AnsiString)Node->ChildNodes->Nodes[WideString("pk_group")]->Text; if (NodeCaption != "....") { Node->ChildNodes->Nodes[WideString("Starting_Date")]->Attributes[WideString("pk_group")] = "ltqlj"; } } XMLDocument->SaveToFile("F:\\cdpp\\pat2.xml");

[CCED136]

BCB6 推荐使用 NativeXml （ 第三方开源）， 它提供了很多实用的方法，非常不错。

[ltq19780113]

哪位大侠有简单修改，读取XML节点的例程？先谢了！！