接口操作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.