delphi 读取xml的值 读iiii的length 和hellonihao 还有id的值

简单写了个例子，如下：（使用TXMLDocument类即可）
procedure TForm1.FormCreate(Sender: TObject);
var
xml: TXMLDocument;
rootnode,node:ixmlnode;
begin
xml := TXMLDocument.Create(application);
xml.LoadFromFile('c:\aaa.xml');// 或者用这个 xml.LoadFromStream();

rootnode := xml.DocumentElement.ChildNodes['iiii'];//iiii节点
if rootnode = nil then
begin
caption := '找不到iiii节点';
exit;
end;
caption := 'iiii.length=' + rootnode.Attributes['length'];

node := rootnode.ChildNodes['hellonihao'];//hellonihao节点
// xxxx 这个节点什么都没有没控制意义

node := rootnode.ChildNodes['io'];//hellonihao节点
if node = nil then
begin
caption := '找不到io节点';
exit;
end;

caption := caption+' iiii.io.id='+node.Attributes['id'];
end;