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(
    '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.

    -----------------------------------------------------------------------------------------------------------------------------------------------

    出处:http://www.cnblogs.com/del/archive/2008/01/03/1024407.html

  • 相关阅读:
    log4j的基本配置参数
    插入透明背景Flash的HTML代码
    oracle获取字符串长度函数length()和hengthb()
    HSQLDB安装与使用
    linux下完全删除Oracle
    SQL查询前几条记录
    LINUX安装ORACLE 9204 报错解决!!
    ORACLE 归档日志打开关闭方法
    hsqldb快速入门
    Openstack中查看虚拟机console log的几种方法
  • 原文地址:https://www.cnblogs.com/huangcong/p/1809888.html
Copyright © 2011-2022 走看看