//--------------------------------------------------------------------------- #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(); } //---------------------------------------------------------------------------
原文链接: https://www.cnblogs.com/zhangdongsheng/archive/2011/06/08/2075785.html
欢迎关注
微信关注下方公众号,第一时间获取干货硬货;公众号内回复【pdf】免费获取数百本计算机经典书籍
原创文章受到原创版权保护。转载请注明出处:https://www.ccppcoding.com/archives/26896
非原创文章文中已经注明原地址,如有侵权,联系删除
关注公众号【高性能架构探索】,第一时间获取最新文章
转载文章受原作者版权保护。转载请注明原作者出处!