zoukankan      html  css  js  c++  java
  • Delphi 中的 XMLDocument 类详解(4) 获取根目录下的元素数

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;
    
    type
      TForm1 = class(TForm)
        XMLDocument1: TXMLDocument;
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        procedure FormCreate(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    //打开
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      XMLDocument1.LoadFromFile('c:\temp\test.xml');
    end;
    
    
    //获取根目录下的元素数(1)
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      ShowMessage(IntToStr(XMLDocument1.DocumentElement.ChildNodes.Count)); {4}
      {DocumentElement 是根节点}
      {ChildNodes 是节点包含的子节点的列表}
    end;
    
    
    //获取根目录下的元素数(2) 
    procedure TForm1.Button2Click(Sender: TObject);
    var
      nodeList: IXMLNodeList; {定义一个节点列表对象}
    begin
      nodeList := XMLDocument1.DocumentElement.ChildNodes;
      {把根节点下的子节点列表赋给节点列表对象}
    
      ShowMessage(IntToStr(nodeList.Count)); {4}
    end;
    
    
    //获取根目录下的元素数(3) 
    procedure TForm1.Button3Click(Sender: TObject);
    var
      node: IXMLNode;         {定义一个节点对象}
      nodeList: IXMLNodeList; {定义一个节点列表对象}
    begin
      node := XMLDocument1.DocumentElement;
      {根节点也是一个节点, 把它赋给节点对象}
    
      nodeList := node.ChildNodes;
      ShowMessage(IntToStr(nodeList.Count)); {4}
    end;
    
    end.
    
  • 相关阅读:
    outlook 2007无法连接exchange server时的解决方法
    Source模式和Design模式无法转换 在VS2008
    自定义CreateUserWizard 控件
    自定义CreateUserWizard 控件
    锋利的jQuery第三章
    Repeater控件的ItemDataBound事件
    jquery获取select,option所有的value和text
    Jquery中的缩写总结
    asp.net本质论学习笔记第二章
    jquery的append函数
  • 原文地址:https://www.cnblogs.com/del/p/1024407.html
Copyright © 2011-2022 走看看