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