有一个.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 地址提取出来保存呢
<?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 地址提取出来保存呢
给你个代码,递归所有的子项,你自己看看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])