以下代码旨在 脱离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 <> - then
begin
root.AttributeNodes[i].Text := '还是归大家所有吧';
root.AttributeNodes[i+].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
root.ChildNodes.Add(node); node := xml.CreateNode('注释',ntComment);
node.NodeValue := ; // 注释 -> 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'] := ;
Attributes['Name'] := '张三';
Attributes['sex'] := True;
Attributes['Salary'] := 12.34;
end;
with data.AddChild('record') do
begin
Attributes['ID'] := ;
Attributes['Name'] := '李四';
Attributes['sex'] := True;
Attributes['Salary'] := ;
end;
with data.AddChild('record') do
begin
Attributes['ID'] := ;
Attributes['Name'] := '王五';
Attributes['sex'] := false;
Attributes['Salary'] := -90.1234;
end;
node := root.AddChild('备注');
node.Attributes['年'] := ;
node.Attributes['月'] := ;
node.Attributes['日'] := ;
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 := ;
node.AttributeNodes.Add(xml.CreateNode('分',ntAttribute));
node.Attributes['分'] := ;
// node.AttributeNodes.Add(xml.CreateNode('秒',xxxx)); // 不支持 ntElement ntText ntComment 等其他类型
// node.Attributes['秒'] := '还有秒?';
xml.SaveToFile(ExtractFilePath(ParamStr())+'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'] := ;
Attributes['Name'] := '张三';
Attributes['sex'] := True;
Attributes['Salary'] := 12.34;
end;
with data.AddChild('record') do
begin
Attributes['ID'] := ;
Attributes['Name'] := '李四';
Attributes['sex'] := True;
Attributes['Salary'] := ;
end;
with data.AddChild('record') do
begin
Attributes['ID'] := ;
Attributes['Name'] := '王五';
Attributes['sex'] := false;
Attributes['Salary'] := -90.1234;
end;
node := root.AddChild('Memo');
node.Attributes['yy'] := ;
node.Attributes['mm'] := ;
node.Attributes['dd'] := ;
node.Text := '建立了一份迷你表';
xml.SaveToFile(ExtractFilePath(ParamStr())+'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())+'eng.xml');
dd.OwnerDocument.Options := dd.OwnerDocument.Options + [doAutoSave]; // 只要有修改就自动保存
Memo1.Clear;
for i := to dd.MyData.Count - 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.

参考:http://www.cnblogs.com/key-ok/p/3380867.html

delphi XML 原来可以玩接口的更多相关文章

  1. Mybatis自动生成xml文件、dao接口、实体类

    Mybatis可以通过逆向工程,实现自动生成xml文件.dao接口.实体类 以下使用的是Intellij Idea进行自动生成 一.首先,要在pom.xml中导入插件,在<build>中加 ...

  2. NativeXml: A native Delphi XML parser and writer

    http://www.simdesign.nl/xml.html This software component contains a small-footprint Object Pascal (D ...

  3. WebService如何封装XML请求 以及解析接口返回的XML

    原 WebService如何封装XML请求 以及解析接口返回的XML 置顶 2019年08月16日 15:00:47 童子泛舟 阅读数 28 标签: XML解析WebService第三方API 更多 ...

  4. Delphi Xml

    用递归方法,使用 xml 文档生成 Treeview 树形视图.由于是动态生成,所以可以通过修改 xml 的逻辑来定制 Treeview 的结构,从而实现了 xml 对 Treeview 的动态配置, ...

  5. 一个关于Delphi XML处理单元的BUG

    使用delphi的XML处理单元 XMLDoc XMLIntf 在获取XML文本内容的时候, 高版本的Delphi会丢失编码描述....在D7上却是正常的, 下面是测试源码: procedure TF ...

  6. 用soapUI测试xml格式的HTTP接口

    有些HTTP接口是直接传递parameter的,有些HTTP请求是将parameter转换为xml串进行传递的.现在要分享的就是如何用soapUI实现xml串的HTTP接口测试. 工具/原料   so ...

  7. 如何把Mybatis的Mapper.xml配置文件和dao接口放在同一个包下

    有的时候我们在Maven项目中写关于Mybatis的项目时,会涉及到很多的实体类,也就会涉及到很多的dao接口,如果此时我们仍然把dao接口和xml写在同一个包下,会让项目接口变得很乱,杂七杂八的,所 ...

  8. XML序列化与反序列化接口对接实战,看这篇就够了

    关键字:c# .NET XML 序列化 反序列化 本文为接口对接实践经验分享,不对具体的XML概念定义进行阐述:涉及工具类及处理方法已在生产环境使用多年,可放心使用.当然如果你发现问题,或有不同想法, ...

  9. delphi XML简单处理

    unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System ...

随机推荐

  1. android 18 Bundle类

    Bundle类:竖屏的activity换到横屏的activity的时候,会把竖屏的activity杀掉横屏的activity创建,竖屏的activity会有一些计算结果,可以用数据存起来,存到内存里面 ...

  2. html+css3实现网页时钟

    在网页上实现时钟功能,效果如右图所示: 运用到的关键技术有:css3中的旋转.旋转基点设置 旋转:transform:rotate(*deg) 旋转基点:transform-origin: x轴偏移 ...

  3. 关于弹出层(iframe)时刷新页面的js

    [javascript] view plaincopyprint? iframe弹出子页面刷新父页面iframe parent.location.reload(); [javascript] view ...

  4. U3D Trigger事件触发

    使用Trigger事件触发,可以达到虽然触发了,可是不改变任何效果. 这个是进入时候触发的: void OnTriggerEnter2D(Collider2D other) { print (othe ...

  5. CSRF 攻击的应对之道

    转载自imb文库 CSRF(Cross Site Request Forgery, 跨站域请求伪造)是一种网络的攻击方式,该攻击可以在受害者毫不知情的情况下以受害者名义伪造请求发送给受攻击站点,从而在 ...

  6. Long型整数,缄默溢出

    /** 长整数问题 @author husky */ public class LongDemo { public static void main(String[] args) { /** * 问题 ...

  7. 【HDU3487】【splay分裂合并】Play with Chain

    Problem Description YaoYao is fond of playing his chains. He has a chain containing n diamonds on it ...

  8. Android的进程和线程(转)

    进程和线程 当一个应用程序第一次启动的时候,Android会启动一个Linux进程和一个主线程(即UI线程:主要负责处理用户的按键事件.触屏事件及屏幕绘图事件等).默认情况下,所有该程序的组件都将在该 ...

  9. C++ 语法规则

    C++ 中的布尔类型:布尔类型只占用一个bit ,但是如果连续定义多个布尔类型时,编译器可能会多个布尔类型定义在一起.true  编译器用1来表示.false  编译器用0来表示. 将一个其他类型的数 ...

  10. linux常用指令(飞天云)

    1.svn相关指令 svn co svn://... //check out 到本地 2.pangu相关 pu cpdir pangu://...        //复制pangu里面对应的文件夹到本 ...