xmldoc1:Txmldocument; var i:Integer; node,childnode,root:Ixmlnode; nodes:Ixmlnodelist; xmldoc1.loadformfile(your filename); xmldoc1.Active:=true ; root:=xmldoc1.DocumentElement ; nodes:=root.ChildNodes ; try for i:=1 to nodes.Count-1 do begin //第一个子节点是注释,要忽略掉 sip:=nodes.Nodes[i].ChildValues['ip']; shostname:=nodes.nodes[i].childvalues['hostname']; smac:=nodes.Nodes[i].ChildValues['mac']; ...
xmldoc1:Txmldocument; var i:Integer; node,childnode,root:Ixmlnode; nodes:Ixmlnodelist; xmldoc1.loadformfile(your filename); xmldoc1.Active:=true ; root:=xmldoc1.DocumentElement ; nodes:=root.ChildNodes ; for i:=1 to nodes.Count-1 do begin sip:=nodes.Nodes[i].ChildValues['ip']; shostname:=nodes.nodes[i].childvalues['hostname']; smac:=nodes.Nodes[i].ChildValues['mac']; ... ...看一看online help,Ixmlnode Ixmlnodelist的诸多方法属性可以读取xml中的任何数据
位置如下:
"C:\Program Files\Borland\Delphi6\Demos\DbClx\mybasexplorer"
var i:Integer;
node,childnode,root:Ixmlnode;
nodes:Ixmlnodelist;
xmldoc1.loadformfile(your filename);
xmldoc1.Active:=true ;
root:=xmldoc1.DocumentElement ;
nodes:=root.ChildNodes ;
try
for i:=1 to nodes.Count-1 do begin //第一个子节点是注释,要忽略掉
sip:=nodes.Nodes[i].ChildValues['ip'];
shostname:=nodes.nodes[i].childvalues['hostname'];
smac:=nodes.Nodes[i].ChildValues['mac'];
...
var i:Integer;
node,childnode,root:Ixmlnode;
nodes:Ixmlnodelist;
xmldoc1.loadformfile(your filename);
xmldoc1.Active:=true ;
root:=xmldoc1.DocumentElement ;
nodes:=root.ChildNodes ;
for i:=1 to nodes.Count-1 do begin
sip:=nodes.Nodes[i].ChildValues['ip'];
shostname:=nodes.nodes[i].childvalues['hostname'];
smac:=nodes.Nodes[i].ChildValues['mac'];
...
...看一看online help,Ixmlnode Ixmlnodelist的诸多方法属性可以读取xml中的任何数据