| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 732 人关注过本帖
标题:求助关于delphi中xml的读取问题
只看楼主 加入收藏
hougb
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2010-10-14
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:3 
求助关于delphi中xml的读取问题
<?xml version="1.0" encoding="gb2312" ?>
<CHANGLIAN>
 <EQ>
  <设备名称>电度表</设备名称>
  <所在总线>01</所在总线>
  <支路名>幸福村1#</支路名>
  <串口号>1</串口号>
  <支路地址>1</支路地址>
  <CT>20</CT>
  <PT>50</PT>
  <波特率>9600</波特率>
  <通信协议>645</通信协议>
 </EQ>
 
</CHANGLIAN>
怎么在delphi中读取上面这个xml中的内容
搜索更多相关主题的帖子: delphi xml 
2010-11-09 10:37
hougb
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2010-10-14
收藏
得分:0 
自己顶
2010-11-09 10:45
yuutian
Rank: 7Rank: 7Rank: 7
等 级:黑侠
帖 子:137
专家分:686
注 册:2010-10-27
收藏
得分:20 
Procedure TForm1.Button1Click(Sender: TObject);
Var
xmlstr,FileName: String;
f: Textfile;
Begin
xmlStr := '<?xml version="1.0" encoding="gb2312"?>';
xmlstr := xmlstr + '<user><name>张三</name><sex>男</sex></user>';
showmessage(xmlstr);
FileName:='a.xml';
If fileExists(FileName) Then DeleteFile(FileName); {看文件是否存在,在就刪除}
AssignFile(F, FileName); {将文件名与变量 F 关联}
ReWrite(F); {创建一个新的文件并命名为 ek.txt}
Writeln(F, xmlstr);
Closefile(F); {关闭文件 F}
End;

可以参考一下这个
2010-11-09 21:00
xieeershao1
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-11-17
收藏
得分:0 
回复 3楼 yuutian
路过 学习
2010-11-17 16:38
快速回复:求助关于delphi中xml的读取问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.041816 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved