Delphi 中的 XMLDocument 类详解(9) - 关于 HasChildNodes 与 IsTextElement

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[ 0 ];

{ 这个节点当然包含子节点, 并且是包含 3 个子节点 }
b : =  node.HasChildNodes;
ShowMessage(BoolToStr(b));  { -1; 也就是 True }
ShowMessage(IntToStr(node.ChildNodes.Count));  { 3 }
ShowMessage(node.NodeName);  { 人员 }


{ 再看其中的"姓名"节点:
<姓名>张三</姓名>

}
{ 先用节点对象获取这个节点 }
node : =  XMLDocument1.DocumentElement.ChildNodes[ 0 ].ChildNodes[ 0 ];
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[ 0 ].ChildNodes[ 0 ].ChildNodes[ 0 ];
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[ 0 ];

{ 这个节点肯定没有 Text 属性 }
b : =  node.IsTextElement;
ShowMessage(BoolToStr(b));  { 0; 也就是 False }
ShowMessage(node.NodeName);  { 人员 }


{ "姓名"节点 }
node : =  XMLDocument1.DocumentElement.ChildNodes[ 0 ].ChildNodes[ 0 ];

{ "姓名"节点有 Text 属性 }
b : =  node.IsTextElement;
ShowMessage(BoolToStr(b));  { -1; 也就是 True }
ShowMessage(node.NodeName);  { 姓名 }

{ "张三"这个文本节点 }
node : =  XMLDocument1.DocumentElement.ChildNodes[ 0 ].ChildNodes[ 0 ].ChildNodes[ 0 ];

{ 文本节点没有 Text 属性 }
b : =  node.IsTextElement;
ShowMessage(BoolToStr(b));  { 0; 也就是 False }
ShowMessage(node.NodeName);  { #text }
end ;

end .

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