文档章节

Delphi 中的 XMLDocument 类详解(5) - 获取元素内容

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 406
阅读 10
收藏 0
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;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  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);
begin
  ShowMessage(XMLDocument1.DocumentElement.ChildNodes[0].ChildNodes['姓名'].Text); {张三}
  ShowMessage(XMLDocument1.DocumentElement.ChildNodes[0].ChildNodes['性别'].Text); {男}
  ShowMessage(XMLDocument1.DocumentElement.ChildNodes[0].ChildNodes['年龄'].Text); {34}
  {可以通过位置访问子节点, 如: ChildNodes[0] 表示子节点列表中的第一个元素}
  {可以通过子节点名访问子节点, 如: ChildNodes['姓名']}
  {但在节点名一样的情况下, 只能通过位置访问}
  {任何情况下都可以通过位置访问, 譬如:}
  ShowMessage(XMLDocument1.DocumentElement.ChildNodes[0].ChildNodes[0].Text); {张三}
end;


//访问第二个人的信息
procedure TForm1.Button2Click(Sender: TObject);
var
  nodeList: IXMLNodeList;
  node: IXMLNode;
begin
  nodeList := XMLDocument1.DocumentElement.ChildNodes;
  node := nodeList[1];

  ShowMessage(node.ChildNodes['姓名'].Text); {李四}
  ShowMessage(node.ChildNodes['性别'].Text); {女}
  ShowMessage(node.ChildNodes['年龄'].Text); {43}
end;


//获取所有成员姓名
procedure TForm1.Button3Click(Sender: TObject);
var
  nodeList: IXMLNodeList;
  node: IXMLNode;
  num,i: Integer;
begin
  nodeList := XMLDocument1.DocumentElement.ChildNodes;
  num := nodeList.Count;

  for i := 0 to num - 1 do
  begin
    node := nodeList[i];
    ShowMessage(node.ChildNodes['姓名'].Text); {会分别显示: 张三 李四 王五 孙六}
  end;
end;


//获取所有成员年龄
procedure TForm1.Button4Click(Sender: TObject);
var
  nodeList: IXMLNodeList;
  node: IXMLNode;
  num,i: Integer;
begin
  nodeList := XMLDocument1.DocumentElement.ChildNodes;
  num := nodeList.Count;

  for i := 0 to num - 1 do
  begin
    node := nodeList[i];
    ShowMessage(node.ChildValues['年龄']); {会分别显示: 34 43 25 52}
  end;
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/01/03/1024489.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Cocos数据篇[3.4](3) ——XML数据操作

【唠叨】 XML 即 可扩展标记语言,在游戏开发中,常用于保存游戏数据信息,如最高分、游戏等级等信息,和描述一些资源等。 加载动画的plist文件、瓦片地图编辑器到处的地图格式tmx文件,实际...

shahdza
2015/02/17
0
0
将Xml文件递归加载到TreeView中

  #region 【通过XDocument的方式将Xml文件递归到TreeView控件中】   //读取Xml文件(XDocument)   //1.加载Xml文件   XDocument document=XDoument.Load("文件名称.xml");   //2...

李洛尘
2018/12/05
0
0
在C#.net中如何操作XML

在C#.net中如何操作XML 需要添加的命名空间: using System.Xml; 定义几个公共对象: XmlDocument xmldoc ; XmlNode xmlnode ; XmlElement xmlelem ; 1,创建到服务器同名目录下的xml文件: ...

晨曦之光
2012/03/09
77
0
XmlNode与XmlElement的区别总结

今天在做ASP.NET操作XML文档的过程中,发现了两个类:XmlNode和XmlElement。这两个类的功能极其类似(因为我们一般都是在对Element节点进行操作)。上网搜罗了半天,千篇一律的答案。永远说不...

长平狐
2013/03/28
511
0
写的一个XML操作类,包括读取/插入/修改/删除。

写的一个XML操作类,包括读取/插入/修改/删除。 using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using......

潇风
2012/07/24
0
0

没有更多内容

加载失败,请刷新页面

加载更多

图像库stb_image

https://github.com/nothings/stb 目前一般主流的图像格式也就是bmp,jpg,png,tga,dds,除了DDS一般是给DX用的,虽然一堆OpenGL程序也有用的,但是我一般只用png和tga, png不用说了,带a...

robslove
29分钟前
1
0
Spring 事务提交回滚源码解析

前言 在上篇文章 Spring 事务初始化源码分析 中分析了 Spring 事务初始化的一个过程,当初始化完成后,Spring 是如何去获取事务,当目标方法异常后,又是如何进行回滚的,又或是目标方法执行...

TSMYK
48分钟前
2
0
百度黄埔学院将培养一批首席AI架构师,为“国之重器”赋能

深度学习高端人才不仅是AI发展的重要养分,也是企业转型AI巨大推动力。2019年1月19日,百度黄埔学院——深度学习架构师培养计划在百度科技园举行开学典礼,深度学习技术及应用国家工程实验室...

深度学习之桨
今天
3
0
扒站wget仿站

wget -c -r -p -np -k http://xxx.com/xxx 其中: -c, --continue (断点续传) 接着下载没下载完的文件 -r, --recursive(递归) specify recursive download.(指定递归下载) -p, --page...

临江仙卜算子
今天
2
0
Nextjs+React非页面组件SSR渲染

@随风溜达的向日葵 Nextjs Nextjs是React生态中非常受欢迎的SSR(server side render——服务端渲染)框架,只需要几个步骤就可以搭建一个支持SSR的工程(_Nextjs_的快速搭建见Next.js入门)...

随风溜达的向日葵
今天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部