Delphi读写XML

	<WechatPay>
		<add key="UnifiedOrderUrl" value="1111"/>
		<add key="OrderQueryUrl" value="2222"/>
		<add key="PayAPIKey" value="3333"/>
		<add key="Appid" value="4444"/>
		<add key="Mch_id" value="5555"/>
		<add key="Device_info" value="6666"/>
		<add key="SpbillCreateIp" value="192.168.0.1"/>
		<add key="TimeOut" value="60"/>
		<add key="PayTime" value="120"/>
	</WechatPay>

处理上面格式可以用以下代码 

  if not XMLDocument1.Active then
  begin
    XMLDocument1.LoadFromFile(ExtractFilePath(ParamStr(0))+'IFA.exe.config');
    XMLDocument1.Active :=True;
  end;

  nodeList :=XMLDocument1.DocumentElement.ChildNodes['WechatPay'].ChildNodes;
  num := nodeList.Count; //获取根目录下的元素数
  for i := 0 to num - 1 do  // WechatPay 下节点名全是ADD需要通过循环读取
  begin
    node := nodeList[i];
    if node.Attributes['key']='PayAPIKey' then
    begin
      ShowMessage(node.AttributeNodes['value'].Text);
      node.AttributeNodes['value'].Text :='111111';
      Break;
    end;
  end;

  XMLDocument1.SaveToFile(ExtractFilePath(ParamStr(0))+'IFA.exe.config');

---

 

 

   <CksServices worksite="111" account="222" pwd="333" timeout="60" RoundDiscountID="34194128" WalkInDiscountID="1">
        <Address url="1111"/>
        <ClientCertificate file="ptmsInterfaceClient.cer"/>
    </CksServices>

处理上面格式可以用以下代码  

  if not XMLDocument1.Active then
  begin
    XMLDocument1.LoadFromFile(ExtractFilePath(ParamStr(0))+'IFA.exe.config');
    XMLDocument1.Active :=True;
  end;

  ShowMessage(XMLDocument1.DocumentElement.ChildNodes['CksServices'].AttributeNodes['worksite'].Text);
  XMLDocument1.DocumentElement.ChildNodes['CksServices'].AttributeNodes['worksite'].Text :='06';
  XMLDocument1.SaveToFile(ExtractFilePath(ParamStr(0))+'IFA.exe.config');