如何使用TXMLDocument取出XML中的节点及其属性的值？谢谢

Question

XML:
<?xml version='1.0' encoding='gb2312'?>
<TreeNode id='Tree11'>
<TextBox id='Tree11'/>
<TreeNode id='4' text='AAAAAA' title='' target='_self' href='Javascript:void(0);' Xml='xtree/tree11_Unitx.asp?DeviceGroupID=4' state='0'><imagePic>images/drafts.gif</imagePic></TreeNode>
<TreeNode id='5' text='BBBBBB' title='' target='_self' href='Javascript:void(0);' Xml='xtree/tree11_Unitx.asp?DeviceGroupID=5' state='0'><imagePic>images/drafts.gif</imagePic></TreeNode>
<TreeNode id='7' text='CCCCCC' title='' target='_self' href='Javascript:void(0);' Xml='xtree/tree11_Unitx.asp?DeviceGroupID=7' state='0'><imagePic>images/drafts.gif</imagePic></TreeNode>
</TreeNode>我想取出 每个节点下的text、title、target、href值，请不吝赐教。谢谢！！！

Answer 1

var
  node:IXMLNode;
  i,n:Integer;
begin
  XMLDocument1.LoadFromFile('c:\1.txt');
  n := XMLDocument1.DocumentElement.ChildNodes.Count;
  for i:= 0 to n - 1 do
  begin
    node := XMLDocument1.DocumentElement.ChildNodes[i];
    ShowMessage(VarToStr(node.Attributes['text']));
    ShowMessage(VarToStr(node.Attributes['title']));
    ShowMessage(VarToStr(node.Attributes['target']));
    ShowMessage(VarToStr(node.Attributes['href']));
  end;
end;

Answer 2

需要加上当前Node的属性判断procedure TForm1.Button2Click(Sender: TObject);
var
  node: IXMLNode;
  i, n: Integer;
begin
  XMLDocument1.LoadFromFile('d:\1.txt');
  n := XMLDocument1.DocumentElement.ChildNodes.Count;
  for i := 0 to n - 1 do
  begin
    node := XMLDocument1.DocumentElement.ChildNodes[i];
    if node.HasAttribute('text') then
      ShowMessage(VarToStr(node.Attributes['text']));
    if node.HasAttribute('title') then
      ShowMessage(VarToStr(node.Attributes['title']));
    if node.HasAttribute('target') then
      ShowMessage(VarToStr(node.Attributes['target']));
    if node.HasAttribute('href') then
      ShowMessage(VarToStr(node.Attributes['href']));
  end;
end;