Delphi 中的 XMLDocument 類詳解(17) - 上一個節點、下一個節點

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　
　node,nodeX:　IXMLNode;　
begin　
　node　:=　XMLDocument1.DocumentElement;　
　node　:=　node.ChildNodes[1];　
　node　:=　node.ChildNodes[1];　
　{現在的節點　node　指向了我們的例子中的第二個人員"李四"}　
　
　ShowMessage(node.ChildNodes[0].NodeValue);　{女}　
　
　//獲取該節點的上一個節點,　它上一個節點應該是李四的姓名　
　nodeX　:=　node.PreviousSibling;　{PreviousSibling}　
　ShowMessage(nodeX.NodeValue);　　{李四}　
　
　//獲取該節點的下一個節點,　它下一個節點應該是李四的年齡　
　nodeX　:=　node.NextSibling;　　　{NextSibling}　
　ShowMessage(nodeX.NodeValue);　　{43}　
　
　//獲取該節點的父節點　
　nodeX　:=　node.ParentNode;　　　　{ParentNode}　
　ShowMessage(nodeX.NodeName);　　{人員}　
end;　
　
end.