Delphi 中的 XMLDocument 类详解(17) - 上一个节点、下一个节点、父节点-阿里云开发者社区

Delphi 中的 XMLDocument 类详解(17) - 上一个节点、下一个节点、父节点

2017-10-01 1156

版权

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

简介：

 
  unit
   Unit1;


  interface
  


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


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

  procedure
   FormCreate(Sender: TObject);

  procedure
   Button1Click(Sender: TObject);

  end
  ;


  var
  
 Form1: TForm1;


  implementation
  


  {
  $R *.dfm
  }
  



  procedure
   TForm1.FormCreate(Sender: TObject);

  begin
  
 XMLDocument1.LoadFromFile(
  '
  c:\temp\test.xml
  '
  );

  {
  必须用万一提供的 xml 测试文件, 才能有相同的返回值
  }
  

  end
  ;



  //
  某节点的上一个节点、下一个节点、父节点

  procedure
   TForm1.Button1Click(Sender: TObject);

  var
  
 node,nodeX: IXMLNode;

  begin
  
 node :
  =
   XMLDocument1.DocumentElement;
 node :
  =
   node.ChildNodes[
  1
  ];
 node :
  =
   node.ChildNodes[
  1
  ];

  {
  现在的节点 node 指向了我们的例子中的第二个人员"李四"
  }
  

 ShowMessage(node.ChildNodes[
  0
  ].NodeValue); 
  {
  女
  }
  


  //
  获取该节点的上一个节点, 它上一个节点应该是李四的姓名
 nodeX :
  =
   node.PreviousSibling; 
  {
  PreviousSibling
  }
  
 ShowMessage(nodeX.NodeValue); 
  {
  李四
  }
  


  //
  获取该节点的下一个节点, 它下一个节点应该是李四的年龄
 nodeX :
  =
   node.NextSibling; 
  {
  NextSibling
  }
  
 ShowMessage(nodeX.NodeValue); 
  {
  43
  }
  


  //
  获取该节点的父节点
 nodeX :
  =
   node.ParentNode; 
  {
  ParentNode
  }
  
 ShowMessage(nodeX.NodeName); 
  {
  人员
  }
  

  end
  ;


  end
  . 
 

本文转自黄聪博客园博客，原文链接：http://www.cnblogs.com/huangcong/archive/2010/08/27/1809958.html，如需转载请自行联系原作者

Delphi 中的 XMLDocument 类详解(17) - 上一个节点、下一个节点、父节点

热门文章

最新文章

相关电子书