if OpenDialog1.Execute then
begin
Data := ComObj.CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument;
if not data.load(OpenDialog1.FileName) then
begin
dialogs.ShowMessage('装载失败!');
end
else begin
dialogs.ShowMessage(data.documentElement.getElementsByTagName('Develop').item[0].childNodes[1].Get_attributes.getNamedItem('UserID').text);
end;
end;
导入数据 遇到一个关于循环的问题
我的XML文件里有 13条 数据
我现在的写法是
for i := 0 to 13 then
dialogs.ShowMessage(data.documentElement.getElementsByTagName('ROWDATA').item[0].childNodes.Get_attributes.getNamedItem('Id').text)
这样虽然可以实现 效果。。但是很傻。。 所以想知道 如何获得 XML 里输入的条数
把 13换成 count