代码如下:代码第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;
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;
解决方案 »
- Delphi传递数组到WCF后变为Null
- 下面这句用format格式如何转换?
- 在D7中,打开其他软件编译时没问题,可是现在调试一个工程时有问题了,不能正常运行,太奇怪了?
- 关于mediaplayer播放列表的问题
- 关于在SQL Server 中建立试图,急~~~~~~~~~~~!
- 问一下,朋友间交换文件用什么软件好啊?最好能穿过防火墙,MSN现在传文件狂慢,QQ又要会员,FTP又没有单独的IP,谁快帮帮我,特别是要传
- 请问怎样改变当前目录到指定的目录?谢谢~
- 新年快乐!分数大放!!来者有份!!!
- SOS!SOS!请教
- 请教屏幕画笔--如何保留上一次的画笔痕迹
- Indy 列目录的问题,谢谢!
- TSlowDBGrid是那个组件包里的组件,那里有下载。
list: IXMLNodeList;
begin
XMLDocument1.LoadFromFile('1.xml'); XmlNode:= XMLDocument1.ChildNodes.First;
while XmlNode <> nil do
begin
list := XmlNode.ChildNodes;
XmlNode := xmlnode.NextSibling;
end;
这样没错呀
xmlDon: IDOMNode;
XMLDocument1.DOMDocument.firstChild;
这样也可以处理。