//--------------------------------------------------------------------------- #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 TMemo *Memo1; TButton *btn_1; TButton *btn_2; TXMLDocument *XMLDocument1; TButton *btn_3; void __fastcall FormCreate(TObject *Sender); void __fastcall btn_1Click(TObject *Sender); void __fastcall btn_2Click(TObject *Sender); void __fastcall btn_3Click(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::FormCreate(TObject *Sender) { XMLDocument1->LoadFromFile("D:\\code\\B_C_B\\XMLDocument\\test.xml"); Memo1->Lines=XMLDocument1->XML; } //--------------------------------------------------------------------------- void __fastcall TForm1::btn_1Click(TObject *Sender) { //添加 _di_IXMLNode newNode,newNodeAdd; //在根目录下增加新的结点,结点名称为"人员" newNode=XMLDocument1->DocumentElement->AddChild("人员"); //给人员这一结点增加“职务”属性,注意此处的要转为widestring型 newNode->Attributes["职务"]=WideString("秘书"); //.......... newNodeAdd=newNode->AddChild("姓名"); newNodeAdd->Text="小翠"; //.......... newNodeAdd=newNode->AddChild("性别"); newNodeAdd->Text="女"; Memo1->Lines=XMLDocument1->XML; /*在尾部增加 <人员 职务="秘书"> <姓名>小翠</姓名> <性别>女</性别> </人员> */ } //--------------------------------------------------------------------------- void __fastcall TForm1::btn_2Click(TObject *Sender) { //删除 _di_IXMLNodeList nodeList; nodeList=XMLDocument1->DocumentElement->ChildNodes; nodeList->Delete(nodeList->Count-1);//删除最后一条 Memo1->Lines=XMLDocument1->XML;//查看 } //--------------------------------------------------------------------------- void __fastcall TForm1::btn_3Click(TObject *Sender) { Memo1->Clear(); } //---------------------------------------------------------------------------