|
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"
);
}
//---------------------------------------------------------------------------
|
