delphi创建和读取xml(xml简单操作举例)
2019独角兽企业重金招聘Python工程师标准>>>
有关许多接口,会需要通过xml进行数据交换,弄个例子,方便参考
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,XMLDoc,XMLIntf, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Xml: TXMLDocument;
Rootnode,node : IXMLNode;
begin
Xml := TXMLDocument.Create(nil);
// Xml.LoadFromFile('aaa.xml');
try
//加入版本信息 ‘<?xml version="1.0" encoding="GB2312" ?> ’
Xml.Active := True;
Xml.Version := '1.0';
Xml.Encoding :='GB2312';
Rootnode := Xml.CreateNode('CIF_INFO');
Xml.DocumentElement := Rootnode;
node := Xml.CreateNode('TXNCODE');
Rootnode.ChildNodes.Add(node);
node.Text := '420001';
node := Xml.CreateNode('RESPCODE');
Rootnode.ChildNodes.Add(node);
node.Text := '0000';
node := Xml.CreateNode('CIFID');
Rootnode.ChildNodes.Add(node);
node.Text := '0030209728';
node := Xml.CreateNode('RESCODE');
Rootnode.ChildNodes.Add(node);
node.Text := '0000';
node := Xml.CreateNode('RESMSG');
Rootnode.ChildNodes.Add(node);
node.Text := '';
Xml.SaveToFile('aaa.xml');
xml.Active := False;
showmessage('创建成功!');
finally
Xml.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Xml: TXMLDocument;
Rootnode,node : IXMLNode;
nodelist:IXMLNodeList;
b,c,str :string;
i:Integer;
begin
Xml := TXMLDocument.Create(Application);
try
Xml.LoadFromFile('aaa.xml');
Xml.Active := True;
Rootnode := Xml.DocumentElement;
nodeList :=Rootnode.ChildNodes;
for i:=0 to nodelist.Count-1 do
begin
if Rootnode.ChildNodes[i].NodeValue = null then
begin
c:='空';
end
else
begin
c:= Rootnode.ChildNodes[i].NodeValue;
end;
str:=str+c+#13#10;
end;
//b := Rootnode.ChildNodes[ 'CIFID'].NodeValue;
Memo1.Lines.Add(str);
xml.Active := False;
finally
Xml.Free;
end;
end;
end.
转载于:https://my.oschina.net/u/582827/blog/785951
delphi创建和读取xml(xml简单操作举例)相关推荐
- WPF对于xml的简单操作(下下)插入节点并排序
正如T所说,下下,这个方法不堪入目, ̄□ ̄|| 贴上再说 //先搞个struct声明private struct datastruct{public string x;public string y; ...
- linux创建删除用户及vim简单操作
用户操作相关: 1.新建几个普通用户wukong,wuneng,wujing,他们都属于xiyouji组的成员,其中wujing没有和系统交互的shell(没有和系统交互的shell就是无法登陆系统) ...
- python中csv文件的创建、读取、修改等操作总结
1. python中创建新的csv文件 (1). 使用csv.writer()创建: 代码如下: import csvheaders = ['学号','姓名','分数'] rows = [('2020 ...
- 数据结构单链表的创建以及简单操作
在数据结构中: 目录 一.数据节点类型结构体封装 二.创建单链表 1.创建链表 2.头部插入 3.遍历链表 4.尾部插入 5.释放链表 链表可以解决顺序表无法开辟连续空间的问题,大大提高了内存的利用率 ...
- JAVA Spring 简单的配置和操作 ( 创建实体类, 配置XML文件, 调试 )
< 1 > 实体类 Person package java_spring.modle;/*** 一个实体类( Person )*/ public class Person {private ...
- C#xml创建修改读取删除帮助类XmlHelper.cs
<strong><span style="color:#ff0000;">[XML帮助类]C#xml创建修改读取删除帮助类XmlHelper.cs < ...
- C#来创建和读取XML文档 [转]
C#来创建和读取XML文档 [关键词]:XML 录入:小鱼之家 来源:http://fisher.xundain.com 时间:2005-3-3 23:41:54 点击:85次 扩展标记语言XML( ...
- Dom4j完整教程~XML文档简单操作
读取XML文档: 读写XML文档主要依赖于org.dom4j.io包,有DOMReader和SAXReader两种方式.因为利用了相同的接口,它们的调用方式是一样的. public static Do ...
- java解析xml文件:创建、读取、遍历、增删查改、保存
全栈工程师开发手册 (作者:栾鹏) java教程全解 java使用JDOM接口解析xml文件,包含创建.增删查改.保存,读取等操作. 需要引入jdom.jar,下载 xercesImpl.jar,下载 ...
最新文章
- opencv仿射变换
- c\c++ 随机数函数
- 08.self关键字
- 孙鑫MFC笔记之十四--多线程同步与异步套接字编程
- R 脚本读取汇总 Excel 表格数据
- linkerd mysql_Linkerd和k8s无法正常工作
- d1800芯片_基于D1800的收音/对讲机设计制作
- 嵌入式linux项目,嵌入式linux项目开发(一)
- aac和mp3在码率压缩的一些事
- js实现椭圆轨迹_Js 椭圆轨迹运动动画 代码分享
- uniapp 模块权限配置 权限管理 权限设置
- 考考你、智商题 小明借爸爸500元 又借妈妈500元 买双鞋 970元 还剩30元 还给爸爸10元...
- vue中使用天气插件(和风天气)
- Java实现读取csv文件
- SMS短信解码举例(一)
- landsat、spot、ikonos等各种卫星信息介绍及几种遥感影像下载方法
- python实现输入一个字符串,输出每个字符的ASCLL码形成的列表
- 2021大连高考成绩查询,2021年大连高考各高中成绩及本科升学率数据排名及分析...
- 周志华西瓜书学习笔记(一)
- 迅雷ios版下载beta
热门文章
- C++: 不可拷贝(noncopyable)类
- vmware虚拟机ubuntu开机黑屏问题解决
- LeetCode 300. Longest Increasing Subsequence--O(n log n)--Java,C++,Python解法
- LeetCode 965	 Univalued Binary Tree--判断二叉树的所有节点的值是否相同--python,java解法
- android xml转换成svg,如何将Android xml布局转换为png / svg以在iOS版本中使用
- linux能远程打开桌面版,如何从Linux上远程显示Windows桌面
- @Profile-根据不同环境注入bean
- Spring-Boot的动态代理AOP原理
- Spring Cloud Alibaba 系统保护:微服务架构雪崩效应与服务限流
- iOS 中socket的总结