XML读取问题(19分)

  • 主题发起人 主题发起人 seeok
  • 开始时间 开始时间
S

seeok

Unregistered / Unconfirmed
GUEST, unregistred user!
对于如下XML:
<?xml version=&quot;1.0&quot;
encoding=&quot;GB2312&quot;
?>
<root>
<deal idno=&quot;1&quot;>
</deal>
</root>
如何来读取idno=&quot;1&quot;?谢谢
 
把XML内容放一个地方,我这个例子放到了memo里
uses XMLIntf,XMLDoc;

procedure TForm1.Button1Click(Sender: TObject);
var
xmldoc:ixmldocument;
xmlnode:ixmlnode;
begin
xmldoc:=txmldocument.Create(self);
try
xmldoc.XML.Text:=memo1.Lines.Text;
xmldoc.Active:=true;
xmlnode:=xmldoc.DocumentElement.ChildNodes.FindNode('deal');
showmessage(xmlnode.GetAttributeNS('idno',''));
finally
xmlnode:=nil;
xmldoc:=nil;
end;
end;
 
接受答案了.
 

Similar threads

回复
0
查看
861
不得闲
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
886
DelphiTeacher的专栏
D
后退
顶部