Delphi高手看过来,关于IXMLNodeList处理XML子节点问题!
qiyao 2006-04-10 04:54:33 代码如下:代码第9行
function buildItem(node:IXMLNode): String;
var
i: Integer;
str:String;
nodes:IXMLNodeList;
begin
if node<>nil then begin
try
nodes:=node.ChildNodes (这个地方出错,why?如何解决?)
if nodes<>nil then begin
end;
except
result:='error';
end;
end;
end;
function buildUpper(nodeslist:IXMLNodeList): String;
var
i: Integer;
str:String;
nodes:IXMLNodeList;
begin
for i :=0 to nodeslist.Count-1 do begin
if nodeslist[i].HasChildNodes =true then begin
buildItem(nodeslist.FindNode('Node'));
end;
end;
end;