接口操作XML
以下代码旨在 脱离TXMLDocument 操作 xml。 unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls; type TForm3 = class(TForm) XMLDocument1: TXMLDocument; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private public end; var Form3: TForm3; implementation uses eng; {$R *.dfm} procedure TForm3.Button1Click(Sender: TObject); var xml:IXMLDocument;root,node,data:IXMLNode;i:Integer; // nt:TNodeType; begin // 先来个中文版 xml := NewXMLDocument; // 默认 1.0 xml.Options := xml.Options + [doNodeAutoIndent]; // 缩进格式，而不是全在一行 xml.Encoding :='gb2312'; // 支持中文 xml.DocumentElement := xml.CreateNode('根节点'); // ntElement 表示节点 // 一样意思，只能含有一个根节点 // xml.AddChild('根节点'); // NameSpaceURI 我理解，不用管，是一个命名空间的路径地址 root := xml.DocumentElement; root.Attributes['说明'] := '怎样不用 TXMLDocument 控件操作 XML文件'; root.Attributes['版权'] := '归 DuoSoft 所有'; root.Attributes['i'] := '这里显示i的值'; i := root.AttributeNodes.IndexOf('版权'); if i <> -1 then begin root.AttributeNodes[i].Text := '还是归大家所有吧'; root.AttributeNodes[i+1].NodeValue := i; end; node := xml.createElement_x_x_x('tag1',''); node.Attributes['desc'] := '第1种添加节点方法'; root.ChildNodes.Add(node); node := xml.CreateNode('tag2'); node.Attributes['desc'] := '第2种添加节点方法'; root.ChildNodes.Add(node); root.AddChild('tag3').Attributes['desc'] := '第3种添加节点方法'; node := xml.CreateNode('备注',ntCData); node.Text := '1234'; // 备注 -> 1234 root.ChildNodes.Add(node); node := xml.CreateNode('注释',ntComment); node.NodeValue := 5678; // 注释 -> 5678 root.ChildNodes.Add(node); { for nt := ntReserved to ntNotation do begin i := Ord(nt); try node := xml.CreateNode('type'+IntToStr(i),nt); node.Attributes['desc'] := '类型'+IntToStr(i); root.ChildNodes.Add(node); except // node.Attributes['desc'] := '失败'+IntToStr(i); // 各自意义以后再研究★★★★★★★★★★★★★ // TNodeType = (ntReserved, ntElement, ntAttribute, ntText, ntCData, // ntEntityRef, ntEntity, ntProcessingInstr, ntComment, ntDocument, // ntDocType, ntDocFragment, ntNotation); end; end; } data := root.AddChild('数据清单'); with data.AddChild('record') do begin Attributes['ID'] := 1; Attributes['Name'] := '张三'; Attributes['sex'] := True; Attributes['Salary'] := 12.34; end; with data.AddChild('record') do begin Attributes['ID'] := 2; Attributes['Name'] := '李四'; Attributes['sex'] := True; Attributes['Salary'] := 5678; end; with data.AddChild('record') do begin Attributes['ID'] := 3; Attributes['Name'] := '王五'; Attributes['sex'] := false; Attributes['Salary'] := -90.1234; end; node := root.AddChild('备注'); node.Attributes['年'] := 2010; node.Attributes['月'] := 7; node.Attributes['日'] := 12; node.Text := '建立了一份迷你表'; // node.NodeName := 'NodeName'; // 不可修改 // node.NodeValue := 'NodeValue'; // = node.Text // 以下代码很有趣！！！尽然合并到一起去了 node.ChildNodes.Add(xml.CreateNode('再补充一个 ntText',ntText)); i := node.AttributeNodes.Add(xml.CreateNode('时',ntAttribute)); node.AttributeNodes[i].NodeValue := 16; node.AttributeNodes.Add(xml.CreateNode('分',ntAttribute)); node.Attributes['分'] := 12; // node.AttributeNodes.Add(xml.CreateNode('秒',xxxx)); // 不支持 ntElement ntText ntComment 等其他类型 // node.Attributes['秒'] := '还有秒？'; xml.SaveToFile(ExtractFilePath(ParamStr(0))+'chn.xml'); { 结果如下 <?xml version="1.0" encoding="gb2312" ?> - <根节点 说明="怎样不用 TXMLDocument 控件操作 XML文件" 版权="还是归大家所有吧" i="1"> <tag1 desc="第1种添加节点方法" /> <tag2 desc="第2种添加节点方法" /> <tag3 desc="第3种添加节点方法" /> - <数据清单> <record ID="1" Name="张三" sex="true" Salary="12.34" /> <record ID="2" Name="李四" sex="true" Salary="5678" /> <record ID="3" Name="王五" sex="false" Salary="-90.1234" /> </数据清单> <备注 年="2010" 月="7" 日="12" 时="16" 分="12">建立了一份迷你表再补充一个 ntText</备注> </根节点> } end; procedure TForm3.Button2Click(Sender: TObject); var xml:IXMLDocument;root,node,data:IXMLNode; begin // 节点变成英文的准备变成 接口 xml := NewXMLDocument; // 默认 1.0 xml.Options := xml.Options + [doNodeAutoIndent]; // 缩进格式，而不是全在一行 xml.Encoding :='gb2312'; // 支持中文 root := xml.AddChild('DuoXMLRoot'); root.Attributes['desc'] := '怎样不用 TXMLDocument 控件操作 XML文件'; root.Attributes['right'] := '归 DuoSoft 所有'; node := xml.createElement_x_x_x('tag1',''); node.Attributes['desc'] := '第1种添加节点方法'; root.ChildNodes.Add(node); node := xml.CreateNode('tag2'); node.Attributes['desc'] := '第2种添加节点方法'; root.ChildNodes.Add(node); root.AddChild('tag3').Attributes['desc'] := '第3种添加节点方法'; data := root.AddChild('MyData'); // 注意这个名字，等下会用到 with data.AddChild('record') do begin Attributes['ID'] := 1; Attributes['Name'] := '张三'; Attributes['sex'] := True; Attributes['Salary'] := 12.34; end; with data.AddChild('record') do begin Attributes['ID'] := 2; Attributes['Name'] := '李四'; Attributes['sex'] := True; Attributes['Salary'] := 5678; end; with data.AddChild('record') do begin Attributes['ID'] := 3; Attributes['Name'] := '王五'; Attributes['sex'] := false; Attributes['Salary'] := -90.1234; end; node := root.AddChild('Memo'); node.Attributes['yy'] := 2010; node.Attributes['mm'] := 7; node.Attributes['dd'] := 12; node.Text := '建立了一份迷你表'; xml.SaveToFile(ExtractFilePath(ParamStr(0))+'eng.xml'); end; 好了，有一个 eng.xml 接下去还得需要一下 TXMLDocument XMLDocument1.FileName 选择 eng.xml 双击控件打开 wizard 选择第一个节点，再选择第二个节点。 把 Document Element Type 勾上 next finish 生成一个 eng.pas use进来 接下去的代码如下：直接利用接口的概念操作刚才我们生成的那个 xml procedure TForm3.Button3Click(Sender: TObject); var dd:IXMLDuoXMLRootType; i: Integer; begin dd := LoadDuoXMLRoot(ExtractFilePath(ParamStr(0))+'eng.xml'); dd.OwnerDocument.Options := dd.OwnerDocument.Options + [doAutoSave]; // 只要有修改就自动保存 Memo1.Clear; for i := 0 to dd.MyData.Count - 1 do begin Memo1.Lines.Add('================='+inttostr(i)+'================='); Memo1.Lines.Add(IntToStr(dd.MyData[i].ID)); Memo1.Lines.Add(dd.MyData[i].Name); Memo1.Lines.Add(dd.MyData[i].Sex); Memo1.Lines.Add(dd.MyData[i].Salary); if dd.MyData[i].ID = dd.MyData.Count then begin ShowMessage('改变最后一个值'); dd.MyData[i].Salary := '123456789.0'; // 给你加薪 end; end; end; end.
转载于:https://www.cnblogs.com/hnxxcxg/p/11203443.html
