Delphi 中的 XMLDocument 類詳解(7) - 擷取節點名稱與節點的屬性名稱

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;

Button2: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

//打開

procedure TForm1.FormCreate(Sender: TObject);

begin

XMLDocument1.LoadFromFile('c:\temp\test.xml');

{必須用萬一提供的 xml 測試檔案, 才能有相同的傳回值}

//擷取節點名稱

procedure TForm1.Button1Click(Sender: TObject);

node: IXMLNode;

node := XMLDocument1.DocumentElement;

ShowMessage(node.NodeName); {科室名單}

node := node.ChildNodes[0]; {XMLDocument1.DocumentElement.ChildNodes[0]}

ShowMessage(node.NodeName); {人員}

node := node.ChildNodes[0]; {XMLDocument1.DocumentElement.ChildNodes[0].ChildNodes[0]}

ShowMessage(node.NodeName); {姓名}

//擷取屬性名稱

procedure TForm1.Button2Click(Sender: TObject);

ShowMessage(node.AttributeNodes[0].NodeName); {備注}

ShowMessage(node.AttributeNodes[0].NodeName); {職務}

end.

本文轉自黃聰部落格園部落格，原文連結：http://www.cnblogs.com/huangcong/archive/2010/08/27/1809919.html，如需轉載請自行聯系原作者