Delphi 中的 XMLDocument 类详解(4) - 获取根目录下的元素数-阿里云开发者社区

Delphi 中的 XMLDocument 类详解(4) - 获取根目录下的元素数

2017-10-01 1072

版权

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

简介：

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;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;

var
Form1: TForm1;

implementation

{ $R *.dfm }

// 打开
procedure TForm1.FormCreate(Sender: TObject);
begin
XMLDocument1.LoadFromFile( ' test.xml ' );
end ;

// 获取根目录下的元素数( 1 )
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(XMLDocument1.DocumentElement.ChildNodes.Count)); { 4 }
{ DocumentElement 是根节点 }
{ ChildNodes 是节点包含的子节点的列表 }
end ;

// 获取根目录下的元素数( 2 )
procedure TForm1.Button2Click(Sender: TObject);
var
nodeList: IXMLNodeList; { 定义一个节点列表对象 }
begin
nodeList : = XMLDocument1.DocumentElement.ChildNodes;
{ 把根节点下的子节点列表赋给节点列表对象 }

ShowMessage(IntToStr(nodeList.Count)); { 4 }
end ;

// 获取根目录下的元素数( 3 )
procedure TForm1.Button3Click(Sender: TObject);
var
node: IXMLNode; { 定义一个节点对象 }
nodeList: IXMLNodeList; { 定义一个节点列表对象 }
begin
node : = XMLDocument1.DocumentElement;
{ 根节点也是一个节点, 把它赋给节点对象 }

nodeList : = node.ChildNodes;
ShowMessage(IntToStr(nodeList.Count)); { 4 }
end ;

end .

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

Delphi 中的 XMLDocument 类详解(4) - 获取根目录下的元素数

热门文章

最新文章

相关电子书