<?xml version="1.0" encoding="gb2312" ?>
<CHANGLIAN>
 <EQ>
  <设备名称>电度表</设备名称>
  <所在总线>01</所在总线>
  <支路名>幸福村1#</支路名>
  <串口号>1</串口号>
  <支路地址>1</支路地址>
  <CT>20</CT>
  <PT>50</PT>
  <波特率>9600</波特率>
  <通信协议>645</通信协议>
 </EQ>
 
</CHANGLIAN>
怎么在delphi中读取上面这个xml中的内容

自己顶

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;

可以参考一下这个

路过 学习