zoukankan      html  css  js  c++  java
  • 黄聪:Delphi 中的 XMLDocument 类详解(7) 获取节点名称与节点的属性名称

    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;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(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');
    {必须用万一提供的 xml 测试文件, 才能有相同的返回值}
    end;


    //获取节点名称
    procedure TForm1.Button1Click(Sender: TObject);
    var
    node: IXMLNode;
    begin
    node :
    = XMLDocument1.DocumentElement;
    ShowMessage(node.NodeName);
    {科室名单}

    node :
    = node.ChildNodes[0]; {XMLDocument1.DocumentElement.ChildNodes[0]}
    ShowMessage(node.NodeName);
    {人员}

    node :
    = node.ChildNodes[0]; {XMLDocument1.DocumentElement.ChildNodes[0].ChildNodes[0]}
    ShowMessage(node.NodeName);
    {姓名}
    end;


    //获取属性名称
    procedure TForm1.Button2Click(Sender: TObject);
    var
    node: IXMLNode;
    begin
    node :
    = XMLDocument1.DocumentElement;
    ShowMessage(node.AttributeNodes[
    0].NodeName); {备注}

    node :
    = node.ChildNodes[0]; {XMLDocument1.DocumentElement.ChildNodes[0]}
    ShowMessage(node.AttributeNodes[
    0].NodeName); {职务}
    end;

    end.

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

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

  • 相关阅读:
    bzoj 2152: 聪聪可可
    bzoj 2143: 飞飞侠
    bzoj 2132: 圈地计划
    bzoj 2127: happiness
    bzoj 2124: 等差子序列
    bzoj 2120: 数颜色
    对MySQL数据类型的认识
    MySQL详解--锁,事务(转)
    mysql 5.7快速部署
    elasticsearch报错[WARN ][bootstrap ] Unable to lock JVM Memory: error=12,reason=Cannot allocate memory,解决
  • 原文地址:https://www.cnblogs.com/huangcong/p/1809919.html
Copyright © 2011-2022 走看看