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.