Delphi 中的 XMLDocument 類詳解(19) - NodeValue 與 NodeName

unit　Unit1;　
　
interface　
　
uses　
　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　
　Dialogs,　xmldom,　XMLIntf,　msxmldom,　XMLDoc,　StdCtrls;　
　
type　
　TForm1　=　class(TForm)　
　　Button1:　TButton;　
　　XMLDocument1:　TXMLDocument;　
　　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　
　node:　IXMLNode;　
begin　
　node　:=　XMLDocument1.DocumentElement;　
　
　node　:=　node.ChildNodes[0];　{現在的　node　指向了第一個人員節點}　
　
　//屬性值:　NodeValue　是可讀寫的　
　ShowMessage(node.AttributeNodes[0].NodeValue);　{科長}　
　node.AttributeNodes[0].NodeValue　:=　'正科長';　
　ShowMessage(node.AttributeNodes[0].NodeValue);　{正科長}　
　
　//屬性名:　NodeName　是只讀的　
　ShowMessage(node.AttributeNodes[0].NodeName);　{職務}　
　//node.AttributeNodes[0].NodeName　:=　'xxx';　　{如果企圖給屬性名賦值會出錯}　
　
　
　
　node　:=　node.ChildNodes[0];　{現在的　node　指向了第一個人員"張三"的姓名節點}　
　
　//節點值:　NodeValue　是可讀寫的　
　ShowMessage(node.NodeValue);　{張三}　
　node.NodeValue　:=　'張老三';　
　ShowMessage(node.NodeValue);　{張老三}　
　
　//節點名:　NodeName　是只讀的　
　ShowMessage(node.NodeName);　{姓名}　
　//node.NodeName　:=　'xxx';　　{如果企圖給節點名賦值會出錯}　
end;　
　
end.