首页 »PHP教程 » Delphi 中的 XMLDocument 类详解(17) - 上一个节点、下一个节点、父节点 »正文
Delphi 中的 XMLDocument 类详解(17) - 上一个节点、下一个节点、父节点
来源: 发布时间:星期一, 2009年11月30日 浏览:0次 评论:0
unit Unit1;
 erface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;
type
TForm1 =  (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
node,nodeX: IXMLNode;
begin
node := XMLDocument1.DocumentElement;
node := node.ChildNodes[1];
node := node.ChildNodes[1];
{现在节点 node 指向了我们例子中第 2个人员"李 4"}
ShowMessage(node.ChildNodes[0].NodeValue); {女}
//获取该节点上个节点, 它上个节点应该是李 4姓名
nodeX := node.PreviousSibling; {PreviousSibling}
ShowMessage(nodeX.NodeValue); {李 4}
//获取该节点下个节点, 它下个节点应该是李 4年龄
nodeX := node.NextSibling; {NextSibling}
ShowMessage(nodeX.NodeValue); {43}
//获取该节点父节点
nodeX := node.ParentNode; {ParentNode}
ShowMessage(nodeX.NodeName); {人员}
end;
end.
标签：
相关文章
读者评论
发表评论
|
|
