Delphi 中的 XMLDocument 类详解(16)

1unit Unit1;
2
3interface
4
5uses
6  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7  Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;
8
9type
10  TForm1 = class(TForm)
11    XMLDocument1: TXMLDocument;
12    Button1: TButton;
13    procedure FormCreate(Sender: TObject);
14    procedure Button1Click(Sender: TObject);
15  end;
16
17var
18  Form1: TForm1;
19
20implementation
21
22{$R *.dfm}
23
24procedure TForm1.FormCreate(Sender: TObject);
25begin
26  XMLDocument1.LoadFromFile('c:\temp\test.xml');
27  {必须用万一提供的 xml 测试文件, 才能有相同的返回值}
28end;
29
30
31//某节点列表中的第一个节点与最后一个节点
32procedure TForm1.Button1Click(Sender: TObject);
33var
34  nodeList: IXMLNodeList;
35  node: IXMLNode;
36begin
37  nodeList := XMLDocument1.DocumentElement.ChildNodes[2].ChildNodes;
38  {当前的 nodeList 第三个人员的节点列表}
39
40  //获取列表中的第一个节点:
41  node := nodeList.First;      {First}
42  ShowMessage(node.NodeValue); {王五}
43
44  //获取列表中的最后一个节点:
45  node := nodeList.Last;       {Last}
46  ShowMessage(node.NodeValue); {25}
47end;
48
49end.