有一个.xml文件内容如下:
<?xml version="1.0" encoding="utf-8"?>
<DefaultSettings Version="1.0.0.8" FirstTime="false">
<Setting Name="AgentServer" value="localhost"/>
<Setting Name="AgentAddress" value="192.168.1.66"/>
         <Setting Name="AgentPort" value="862182"/>怎么样把IP 192.168.1.66 地址提取出来保存呢

解决方案 »

  1.   

    用XMLDocument1: TXMLDocument;
    给你个代码,递归所有的子项,你自己看看procedure TForm1.viewNode(uNode: IXMLNode);
    var i: Integer;
    begin
      for i := 0 to uNode.ChildNodes.Count - 1 do
      begin
        if uNode.ChildNodes.Nodes[i].HasChildNodes then
        begin
          showmessage(uNode.ChildNodes.Nodes[i].NodeName + '!!');
          viewNode(uNode.ChildNodes.Nodes[i]);
        end
        else
        showmessage(uNode.ChildNodes.Nodes[i].XML + '/' + uNode.ChildNodes.Nodes[i].NodeValue);
      end;
    end;调用:
        if XMLDocument1.ChildNodes.Nodes[i].HasChildNodes then
          viewNode(XMLDocument1.ChildNodes.Nodes[i])