Delphi SelectSingleNode的使用 根据节点属性获取该节点

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, msxml,StdCtrls;

type

TForm1 = class(TForm)

btn1: TButton;

XMLDocument1: TXMLDocument;

procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

var

noderef: IXMLDOMNodeRef;

root: IXMLDOMNode;

Node: IXMLDOMNode;

begin

XMLDocument1.LoadFromFile('test.xml');

XMLDocument1.Active := True;

noderef := XMLDocument1.DocumentElement.DOMNode as IXMLDOMNodeRef;

root := noderef.GetXMLDOMNode; // 获取跟节点

Node := root.selectSingleNode('ItemList/Item[@name="name2"]'); // 根据路径的属性值获取节点

ShowMessage(Node.Attributes.getnameditem('title').Text); // title2

Node.Attributes.getnameditem('title').Text:='hello'; // <Item name="name2" title="title2"/> => <Item name="name2" title="hello"/>

XMLDocument1.SaveToFile('test.xml');

end;

end.

test.xml文档：

<?xml version="1.0" encoding="utf-8"?>

<Test>

<ItemList>

<Item name="name1" title="title1"></Item>

<Item name="name2" title="title2"/>

</ItemList>

</Test>