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;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(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; //HasChildNodes: 判断是否包含子节点
procedure TForm1.Button1Click(Sender: TObject);
var
  node: IXMLNode;
  b: Boolean;
begin
{我们从例子中拿出一个节点, 譬如根节点下的第一个节点:
<人员 职务="科长" 备注="正局级">
  <姓名>张三</姓名>
  <性别>男</性别>
  <年龄>34</年龄>
</人员>
}
  {先用节点对象获取这个节点}
  node := XMLDocument1.DocumentElement.ChildNodes[];   {这个节点当然包含子节点, 并且是包含 3 个子节点}
  b := node.HasChildNodes;
  ShowMessage(BoolToStr(b));                    {-1; 也就是 True}
  ShowMessage(IntToStr(node.ChildNodes.Count)); {3}
  ShowMessage(node.NodeName);                  {人员} {再看其中的"姓名"节点:
<姓名>张三</姓名>
}
  {先用节点对象获取这个节点}
  node := XMLDocument1.DocumentElement.ChildNodes[].ChildNodes[];
  b := node.HasChildNodes;
  ShowMessage(BoolToStr(b));                    {-1; 也就是 True}
  ShowMessage(IntToStr(node.ChildNodes.Count)); {1}
  ShowMessage(node.NodeName);                  {姓名}
  {它里面只有文本"张三", 没有标签, 这时的节点才有 Text 属性}
  ShowMessage(node.Text); {张三}   {获取"张三"这个文本节点}
  node := XMLDocument1.DocumentElement.ChildNodes[].ChildNodes[].ChildNodes[];
  b := node.HasChildNodes;
  ShowMessage(BoolToStr(b));                    {0; 也就是 False 没有子节点了}
  ShowMessage(IntToStr(node.ChildNodes.Count)); {0; 子节点总数是 0}
  ShowMessage(node.NodeName);                  {#text; 说明它是一个文本节点}
  ShowMessage(node.NodeValue);                  {张三; 我们也可以取出它的值}   {文本节点的 NodeValue 属性等同于它上层节点的 Text 属性}
  ShowMessage(node.ParentNode.Text);            {张三}
end; //IsTextElement: 判断是否是否具有 Text 属性
procedure TForm1.Button2Click(Sender: TObject);
var
  node: IXMLNode;
  b: Boolean;
begin
{我们从例子中拿出一个节点, 譬如根节点下的第一个节点:
<人员 职务="科长" 备注="正局级">
  <姓名>张三</姓名>
  <性别>男</性别>
  <年龄>34</年龄>
</人员>
}
  {先用节点对象获取这个节点}
  node := XMLDocument1.DocumentElement.ChildNodes[];   {这个节点肯定没有 Text 属性}
  b := node.IsTextElement;
  ShowMessage(BoolToStr(b));                    {0; 也就是 False}
  ShowMessage(node.NodeName);                  {人员}   {"姓名"节点}
  node := XMLDocument1.DocumentElement.ChildNodes[].ChildNodes[];   {"姓名"节点有 Text 属性}
  b := node.IsTextElement;
  ShowMessage(BoolToStr(b));                    {-1; 也就是 True}
  ShowMessage(node.NodeName);                  {姓名}   {"张三"这个文本节点}
  node := XMLDocument1.DocumentElement.ChildNodes[].ChildNodes[].ChildNodes[];   {文本节点没有 Text 属性}
  b := node.IsTextElement;
  ShowMessage(BoolToStr(b));                    {0; 也就是 False}
  ShowMessage(node.NodeName);                  {#text}
end; end.

Delphi 中的 XMLDocument 类详解(9) - 关于 HasChildNodes 与 IsTextElement的更多相关文章

  1. Delphi 中的 XMLDocument 类详解(10) - 判断节点类型: 支节点、叶节点、文本节点、空节点

    unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, For ...

  2. Php-SPL库中的迭代器类详解(转)

    SPL提供了多个迭代器类,分别提供了迭代访问.过滤数据.缓存结果.控制分页等功能.,因为php总是在不断壮大,我尽可能列出SPL中所有的迭代类.下面其中一些迭代器类是需要php5.4,另外一些如Sea ...

  3. MFC中CString.Format类详解

    在MFC程序中,使用CString来处理字符串是一个很不错的选择.CString既可以处理Unicode标准的字符串,也可以处理ANSI标准的字符串.CString的Format方法给我们进行字符串的 ...

  4. hadoop中典型Writable类详解

    本文地址:http://www.cnblogs.com/archimedes/p/hadoop-writable.html,转载请注明源地址. Hadoop将很多Writable类归入org.apac ...

  5. Spring框架spring-web模块中的RestTemplate类详解

    RestTemplate类是spring-web模块中进行HTTP访问的REST客户端核心类.RestTemplate请求使用阻塞式IO,适合低并发的应用场景. 1. RestTemplate类提供了 ...

  6. (14)javaWeb中的HttpServletResponse类详解

    如果希望了解请求和响应的详细内容,可以看我的“HTTP协议”系列文章 响应体的简单概述: a,响应报文结构: b,常见的状态码,返回服务器处理的结果: c,常见的响应头: HttpServletRes ...

  7. Delphi中的线程类 - TThread详解

    Delphi中的线程类 - TThread详解 2011年06月27日 星期一 20:28 Delphi中有一个线程类TThread是用来实现多线程编程的,这个绝大多数Delphi书藉都有说到,但基本 ...

  8. JDK中Unsafe类详解

    Java中Unsafe类详解 在openjdk8下看Unsafe源码 浅析Java中的原子操作 Java并发编程之LockSupport http://hg.openjdk.java.net/jdk7 ...

  9. Java中dimension类详解

    Java中dimension类详解 https://blog.csdn.net/hrw1234567890/article/details/81217788

随机推荐

  1. vue2.0 技巧汇总

    /** * Created by */ export default { trim: (str) => { //删除左右两端的空格 return str.replace(/(^\s*)|(\s* ...

  2. rdesktop使用记录

    常用命令 连接远程windows RDP服务器,映射本机/home/ssooking/share/目录到windows上,名称为Myshare. rdesktop -a 16 -u xxx -p xx ...

  3. 范型方法 & 范型参数 & 范型返回值

    Java范型类 public class FanXingClassTest { public static void main(String args[]){ Test<Integer> ...

  4. HIVE metastore Duplicate key name 'PCS_STATS_IDX' (state=42000,code=1061)

    HDP 版本:2.4.0.0-169. 解决:将hive 所在 节点上的/usr/hdp/2.4.0.0-169/hive/script/metastore/upgrade/msql/hive-sch ...

  5. [转]理解Go语言中的nil

    最近在油管上面看了一个视频:Understanding nil,挺有意思,这篇文章就对视频做一个归纳总结,代码示例都是来自于视频. nil是什么 相信写过Golang的程序员对下面一段代码是非常非常熟 ...

  6. PCL点云分割(3)

    (1)Euclidean分割 欧几里德分割法是最简单的.检查两点之间的距离.如果小于阈值,则两者被认为属于同一簇.它的工作原理就像一个洪水填充算法:在点云中的一个点被“标记”则表示为选择在一个的集群中 ...

  7. 解决vscode无法安装golang相关插件的问题 - 即无法直连golang.org的问题

    喜欢挂vpn或者代理的请无视本文. 其实golang.org上的插件在github.com上都有镜像,直接 git clone https://github.com/golang/tools git ...

  8. apache2.4 httpd.conf httpd-vhost.conf配置

    extra / httpd-vhost.conf <VirtualHost *:81> DocumentRoot "/data/sda1_data/" ServerNa ...

  9. STS中如何使用lombok

    Lombok有什么用使用Lombok时需要注意的点Lombok的安装spring boot集成LombokLombok常用注解@NonNull@Cleanup@Getter/@Setter@Gette ...

  10. BarTender安装常见问题集结

    很多人在安装BarTender时,会出现各种安装程序信息警告提示,导致软件无法继续安装下去,那么针对这些Bartender安装问题我们要怎么正确解决呢?下面,小编将BarTender安装失败常见问题, ...