Delphi 中的 XMLDocument 類詳解(15) - 建立與儲存 xml

<a></a>

unit Unit1;

interface

uses

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

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

type

TForm1 = class(TForm)

XMLDocument1: TXMLDocument;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

//利用 XML 屬性建立 xml 檔案

procedure TForm1.Button1Click(Sender: TObject);

begin

XMLDocument1.XML.Clear;

XMLDocument1.XML.Add('');

XMLDocument1.XML.Add('&lt;科室名單 備注="測試"&gt;');

XMLDocument1.XML.Add('&lt;人員 職務="科長" 備注="正局級"&gt;');

XMLDocument1.XML.Add('&lt;姓名&gt;張三');

XMLDocument1.XML.Add('&lt;性别&gt;男');

XMLDocument1.XML.Add('&lt;年齡&gt;34');

{檢視}

ShowMessage(XMLDocument1.XML.Text);

{儲存}

XMLDocument1.Active := True;

XMLDocument1.SaveToFile('c:\temp\1.xml');

//建立 xml 檔案的标準方法

procedure TForm1.Button2Click(Sender: TObject);

pNode,cNode: IXMLNode; {定義兩個節點: 父節點、子節點}

XMLDocument1.Active := True; {必須先激活}

XMLDocument1.Version := '1.0'; {設定版本}

XMLDocument1.Encoding := 'GB2312'; {設定語言}

pNode := XMLDocument1.AddChild('科室名單'); {添加的第一個節點是根節點, 現在的 pNode 是根節點}

pNode.SetAttribute('備注', '測試'); {為根節點設定屬性}

pNode := pNode.AddChild('人員'); {為根節點添加子節點, 現在的 pNode 是 "人員" 節點}

pNode.SetAttribute('職務', '科長'); {設定屬性}

pNode.SetAttribute('備注', '正局級');

cNode := pNode.AddChild('姓名'); {為 pNode 添加子節點, 傳回值 cNode 指向了新添加的節點}

cNode.Text := '張三';

cNode := pNode.AddChild('性别');

cNode.Text := '男';

cNode := pNode.AddChild('年齡');

cNode.Text := '34';

XMLDocument1.SaveToFile('c:\temp\2.xml');

end.

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