//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <msxmldom.hpp>
#include <XMLDoc.hpp>
#include <xmldom.hpp>
#include <XMLIntf.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TXMLDocument *XMLDocument1;
TButton *Button1;
TButton *Button2;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
XMLDocument1->XML->Clear();
XMLDocument1->XML->Add("");
XMLDocument1->XML->Add("<科室名单 备注=\"测试\">");
XMLDocument1->XML->Add("<人员 职务=\"科长\" 备注=\"正局级\">");
XMLDocument1->XML->Add("<姓名>张三");
XMLDocument1->XML->Add("<性别>男");
XMLDocument1->XML->Add("<年龄>34");
XMLDocument1->XML->Add("");
XMLDocument1->XML->Add("");
//查看
ShowMessage(XMLDocument1->XML->Text);
//保存
XMLDocument1->Active=true;
XMLDocument1->SaveToFile("c:\\temp\\1.xml");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
//创建xml文件的标准方法
_di_IXMLNode pNode,cNode;//定义两个结点,父节点,子节点
XMLDocument1->XML->Clear();
XMLDocument1->Active=true;//必须先激活
XMLDocument1->Version="1.0";//设置版本
XMLDocument1->Encoding="GB2312";//设置语言
pNode=XMLDocument1->AddChild("科室名单"); //添加第一个节点是根结点
pNode->SetAttribute("备注","测试");//设置根结点属性
pNode=pNode->AddChild("人员");//为根结点添加子结点
pNode->SetAttribute("职务","科长");
pNode->SetAttribute("备注","正处级");
cNode=pNode->AddChild("姓名");//为pNode添加子节点,返回值cNode指向了新添加的节点
cNode->Text="张三";
cNode=pNode->AddChild("性别");
cNode->Text="男";
cNode=pNode->AddChild("年龄");
cNode->Text="34";
//查看
ShowMessage(XMLDocument1->XML->Text);
//保存
XMLDocument1->SaveToFile("c:\\temp\\1.xml");
}
//---------------------------------------------------------------------------