13,873
社区成员
发帖
与我相关
我的任务
分享#include <msxmldom.hpp>
#include <XMLDoc.hpp>
#include <xmldom.hpp>
#include <XMLIntf.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
_di_IXMLDocument rootdataset = NewXMLDocument();
rootdataset->SetDocumentElement(rootdataset->CreateElement("DataSet",""));
_di_IXMLNode NewDataSetNode = rootdataset->DocumentElement->AddChild(WideString("NewDataSet"));
_di_IXMLNode Node = NewDataSetNode->AddChild("PackgType",0);
AnsiString NodeValue = "FJDATA";
Node->SetNodeValue("test");
Node = NewDataSetNode->AddChild("EditFlag",0);
Node->SetNodeValue("123");
rootdataset->SaveToFile( "c:\\123.xml");
}
//-----------------------------<?xml version="1.0" encoding="utf-8"?>
<update>
<descriptions>
</descriptions>
<files>
<file ver="20070510" path="sqlite3.dll"/>
<file ver="20110907" path="FaceEnCode.exe"/>
<file ver="20110902" path="bianhu.png"/>
<file ver="20110902" path="bianho.png"/>
<file ver="20110902" path="bianlv.png"/>
<file ver="20110902" path="FaceEnExt.dll"/>
<file ver="20110902" path="头像免责条款.txt"/>
<file ver="20110903" path="最终用户许可协议.txt"/>
</files>
</update>