delphi XML简单处理
unit Unit1; interface uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Xml.XMLDoc, Xml.xmldom, Xml.XMLIntf,
Vcl.StdCtrls; type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);
var
IDoc: IXMLDocument;
Root, N1, N2, N3: IXMLNode;
I: Integer;
begin
IDoc := TXMLDocument.Create(nil);
IDoc.Active := True;
Root := IDoc.AddChild('公司');
for I := to do
begin
N1 := Root.AddChild('部门');
N1.Attributes['Id'] := I;
N1.AddChild('名称').NodeValue := '部门_'+I.ToString;
N1.AddChild('主管').NodeValue := '主管_'+I.ToString;
end;
IDoc.SaveToFile('d:\jjw.xml');
end; procedure TForm1.Button2Click(Sender: TObject);
var
Doc: IXMLDocument;
Node: IXMLNode;
I: Integer;
begin
Doc := TXMLDocument.Create(nil);
Doc.LoadFromFile('d:\jjw.xml');
Doc.Active := True;
Node := Doc.DocumentElement;
for I := to Node.ChildNodes.Count- do
Node.ChildNodes[I].AddChild('人数').NodeValue := IntToStr(I+);
Doc.SaveToFile('d:\jjw.xml');
end; procedure TForm1.Button3Click(Sender: TObject);
var
Doc: IXMLDocument;
Node: IXMLNode;
I: Integer;
begin
Doc := TXMLDocument.Create(nil);
Doc.LoadFromFile('d:\jjw.xml');
Doc.Active := True;
Node := Doc.DocumentElement;
for I := to Node.ChildNodes.Count- do
Node.ChildNodes[I].ChildNodes.Delete();
Doc.SaveToFile('d:\jjw.xml');
end; procedure TForm1.Button4Click(Sender: TObject);
var
Doc: IXMLDocument;
Root, Node: IXMLNode;
I: Integer;
begin
Doc := TXMLDocument.Create(nil);
Doc.LoadFromFile('d:\jjw.xml');
Doc.Active := True;
Root := Doc.DocumentElement;
for I := to Root.ChildNodes.Count- do
begin
Node := Root.ChildNodes[I];
if Node.Attributes['Id']= then
Node.ChildNodes[].NodeValue := ;
end;
Doc.SaveToFile('d:\jjw.xml');
end; end.
delphi XML简单处理的更多相关文章
- mybatis-config.xml简单笔记
mybatis-config.xml简单笔记 <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE ...
- applicationContext.xml简单笔记
applicationContext.xml简单笔记 <?xml version="1.0" encoding="UTF-8"?> <bean ...
- spring-servlet.xml简单示例
spring-servlet.xml简单示例 某个项目中的spring-servlet.xml 记下来以后研究用 <!-- springMVC简单配置 --> <?xml versi ...
- delphi指针简单入门
delphi指针简单入门: 看一个指针用法的例子: 1 var 2 X, Y: Integer; // ...
- NativeXml: A native Delphi XML parser and writer
http://www.simdesign.nl/xml.html This software component contains a small-footprint Object Pascal (D ...
- XML简单学习
XML简单概述 1.Extensible Markup language可扩展标记语言; 2.作用:具有层次性的描述有关系的数据: 体现在:描述数据关系:软件配置,以描述程序模块之间的关系: 语法介绍 ...
- XML简单介绍及举例
可扩展标记语言(eXtensibleMarkup Language,简称XML).是一种标记语言.标记指计算机所能理解的信息符号.通过此种标记,计算机之间能够处理包括各种信息的文章等. 怎样定义这些标 ...
- log4j.xml简单配置实现在控制台打印sql执行语句【加注释】
转: log4j.xml简单配置实现在控制台打印sql执行语句 2017年09月27日 13:02:34 艾然丶 阅读数 8804 版权声明:本文为博主原创文章,遵循CC 4.0 BY-SA版权协 ...
- delphi DBGrid简单自绘(字体颜色、背景等)
delphi DBGrid简单自绘(字体颜色.背景等) 从网上找的代码 应该是C#写的,其实delphi 的操作类似: 1 2 3 4 5 6 7 8 9 10 11 12 13 void __fa ...
随机推荐
- WordPress 本地建站
1.搭建环境 appserv下载链接:http://www.onlinedown.net/soft/35753.htm 安装 1.直接运行 2.选择安装路径 3.选择所需环境,若已经有,则可不勾选 4 ...
- [IDE - Eclipse] JSP报错:The superclass “javax.servlet.http.HttpServlet” was not found on the Java Build Path
是因为Eclipse的Web项目不自动引入相关jar包. Right Click on the Project ❯ Properties ❯ Project Facets. You would be ...
- windows service 2008 R2 安装net4.6环境失败,windows service 2008 R2 升级sp1问题
一.错误 1.因为我的程序是以vs2017开发的,在windows service 2008 R2 IIS部署项目文件报出错误,因此要安装net4.6的环境. 2.windows service 2 ...
- php如何以post形式发送xm并返回xmll数据
post的数据为xml字符串,通过 $xml = simplexml_load_string($post_data);转换成xml对象 $header[] = "Content-type: ...
- 解决pycharm添加第三方包失败
今天想用pycharm打开图像,但是import scipy的时候报错了,报错内容如下: from scipy.misc import imread Traceback (most recent ca ...
- 5、Angular的一些其他核心特性,学习的主要模块
Angular应用程序的八个主要构造块: 模块 组件 模板 元数据 数据绑定 指令 服务 依赖注入 其他重要的Angular特性和服务: 动画 表单 HTTP 组件生命周期 管道过滤器 路由 测试
- hashlib使用
提供摘要算法:主要提供SHA1,SHA224,SHA256,SHA384,SHA512,MD5算法 import hashlib m = hashlib.md5("ddddd".e ...
- Python之路-函数
一.函数是什么: python中函数定义:函数是逻辑结构化和过程化的一种编程方法.定义函数的方法为: def function(): ""The function definiti ...
- Forth 词典和词汇
body, table{font-family: 微软雅黑; font-size: 13.5pt} table{border-collapse: collapse; border: solid gra ...
- intelij idea常用功能介绍
1.查看本地文件修改记录 保存本地修改记录: 可以将system下的LocalHistory保存,到另一个目录,需要的时候保存即可. 2.debbuger查看代码 1)优化设置 2)常用 3.条件断点 ...