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

最新推荐文章于 2021-09-08 18:37:36 发布

转载最新推荐文章于 2021-09-08 18:37:36 发布 · 179 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/JackSun/archive/2010/12/03/1895377.html

本文介绍如何使用 Delphi 的 XML DOM 组件进行 XML 文件的读写操作，包括加载 XML 文件、通过 XPath 获取节点、修改节点属性并保存更改。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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>

转载于:https://www.cnblogs.com/JackSun/archive/2010/12/03/1895377.html

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

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