Delphi 中的 XMLDocument 类详解(16) - 节点列表中的第一个与最后一个节点-阿里云开发者社区

开发者社区> 开发与运维> 正文
登录阅读全文

Delphi 中的 XMLDocument 类详解(16) - 节点列表中的第一个与最后一个节点

简介:

复制代码
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
nodeList: IXMLNodeList;
node: IXMLNode;
begin
nodeList :
= XMLDocument1.DocumentElement.ChildNodes[2].ChildNodes;
{当前的 nodeList 第三个人员的节点列表}

//获取列表中的第一个节点:
node :
= nodeList.First; {First}
ShowMessage(node.NodeValue); 
{王五}

//获取列表中的最后一个节点:
node :
= nodeList.Last; {Last}
ShowMessage(node.NodeValue); 
{25}
end;

end.



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

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

分享:
开发与运维
使用钉钉扫一扫加入圈子
+ 订阅

集结各类场景实战经验,助你开发运维畅行无忧

其他文章
最新文章
相关文章