Delphi 中的 XMLDocument 类详解(15) - 创建与保存 xml-阿里云开发者社区

Delphi 中的 XMLDocument 类详解(15) - 创建与保存 xml

2017-10-01 1377

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介：

 
  unit
   Unit1;


  interface
  


  uses
  
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, xmldom, XMLIntf, StdCtrls, msxmldom, XMLDoc;


  type
  
 TForm1 
  =
   
  class
  (TForm)
 XMLDocument1: TXMLDocument;
 Button1: TButton;
 Button2: TButton;

  procedure
   Button1Click(Sender: TObject);

  procedure
   Button2Click(Sender: TObject);

  end
  ;


  var
  
 Form1: TForm1;


  implementation
  


  {
  $R *.dfm
  }
  


  //
  利用 XML 属性创建 xml 文件

  procedure
   TForm1.Button1Click(Sender: TObject);

  begin
  
 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
  '
  );

  end
  ;



  //
  创建 xml 文件的标准方法

  procedure
   TForm1.Button2Click(Sender: TObject);

  var
  
 pNode,cNode: IXMLNode; 
  {
  定义两个节点: 父节点、子节点
  }
  

  begin
  
 XMLDocument1.XML.Clear;
 XMLDocument1.Active :
  =
   True; 
  {
  必须先激活
  }
  
 XMLDocument1.Version :
  =
   
  '
  1.0
  '
  ; 
  {
  设置版本
  }
  
 XMLDocument1.Encoding :
  =
   
  '
  GB2312
  '
  ; 
  {
  设置语言
  }
  

 pNode :
  =
   XMLDocument1.AddChild(
  '
  科室名单
  '
  ); 
  {
  添加的第一个节点是根节点, 现在的 pNode 是根节点
  }
  
 pNode.SetAttribute(
  '
  备注
  '
  , 
  '
  测试
  '
  ); 
  {
  为根节点设置属性
  }
  

 pNode :
  =
   pNode.AddChild(
  '
  人员
  '
  ); 
  {
  为根节点添加子节点, 现在的 pNode 是 "人员" 节点
  }
  
 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\2.xml
  '
  );

  end
  ;


  end
  . 
 