跪求例子程序:IXMLDOMDocument保存简单XML例子程序

Delphi 的，希望对你 有用。

var
pt: PdnTerm;
pgt: PdnGameType;
pg: PdnGame;
pp: PdnPlay;
xml: IXmlDomDocument;
e1, e2, e3, e4, e5: IXmlDomElement;
begin
xml := ComsDOMDocument26.Create;
xml.loadXML('<Source />');
e1 := xml.selectSingleNode('/Source') as IXmlDomElement;
pt := s^.Term;
while pt <> nil do
begin
e2 := xml.createElement('Term');
e2.setAttribute('Name', pt^.Name);
e1.appendChild(e2);

pgt := pt^.GameType;
while pgt <> nil do
begin
e3 := xml.createElement('GameGroup');
e3.setAttribute('Name', pgt^.Name);
e2.appendChild(e3);

pg := pgt^.Game;
while pg <> nil do
begin
e4 := xml.createElement('Game');
e4.setAttribute('Time', pg^.Time);