xmltree.pas

来自「httpanalyzer, source code for delphi」· PAS 代码 · 共 43 行

  unit XmlTree;
  interface
  uses
    Variants, XMLIntf;

  function TreeView(XmlNode: IXMLNode; depth: Integer): AnsiString;

  implementation
  uses
    Tabs;

  function TreeView(XmlNode: IXMLNode; depth: Integer): AnsiString;
  var
    i: Integer;
    Attr: IXMLNode;
  begin
    Result := '';
    if XMLNode.NodeType = ntElement then
    begin
      if XmlNode.IsTextElement then
        if XmlNode.NodeValue <> null then
          Result := Tab[depth] +
            XmlNode.NodeName + ' = ' + XmlNode.NodeValue + CRLF
        else
          Result := Tab[depth] + XmlNode.NodeName + CRLF
      else
        if XmlNode.HasChildNodes then
          Result := Tab[depth] + '*' + XmlNode.NodeName + CRLF;

      for i:=0 to Pred(XmlNode.AttributeNodes.Count) do
      begin
        Attr := XmlNode.AttributeNodes[i];
        Result := Result + Tab[depth+1] +
          '[' + Attr.NodeName + ' = ' + Attr.NodeValue + ']' + CRLF
      end;
      if XmlNode.HasChildNodes then
        for i:=0 to Pred(XmlNode.ChildNodes.Count) do
          Result := Result + TreeView(XmlNode.ChildNodes[i], depth+1)
    end
  end {TreeView};

  end.