c++ builder 中的 XMLDocument 类详解(8) -添加与删除结点

//---------------------------------------------------------------------------



#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();

}

//---------------------------------------------------------------------------