unit Unit1;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, StdCtrls, msxmldom, XMLDoc; TForm1 = (TForm) XMLDocument1: TXMLDocument; Button1: TButton; Button2: TButton; Button1Click(Sender: TObject); Button2Click(Sender: TObject); ; Form1: TForm1; TForm1.Button1Click(Sender: TObject); XMLDocument1.XML.Clear; XMLDocument1.XML.Add(); XMLDocument1.XML.Add(); XMLDocument1.XML.Add(); XMLDocument1.XML.Add(); XMLDocument1.XML.Add(); XMLDocument1.XML.Add(); XMLDocument1.XML.Add(); XMLDocument1.XML.Add(); ShowMessage(XMLDocument1.XML.Text); XMLDocument1.Active := True; XMLDocument1.SaveToFile(); ; TForm1.Button2Click(Sender: TObject); pNode,cNode: IXMLNode; XMLDocument1.XML.Clear; XMLDocument1.Active := True; XMLDocument1.Version := ; XMLDocument1.Encoding := ; pNode := XMLDocument1.AddChild(); pNode.SetAttribute(, ); pNode := pNode.AddChild(); pNode.SetAttribute(, ); pNode.SetAttribute(, ); cNode := pNode.AddChild(); cNode.Text := ; cNode := pNode.AddChild(); cNode.Text := ; cNode := pNode.AddChild(); cNode.Text := ; ShowMessage(XMLDocument1.XML.Text); XMLDocument1.SaveToFile(); ; .
转载于:https://blog.51cto.com/sunjj/1167774