|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
//---------------------------------------------------------------------------#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 |
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
//---------------------------------------------------------------------------#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");
}//--------------------------------------------------------------------------- |