zoukankan      html  css  js  c++  java
  • Delphi 中的 XMLDocument 类详解(5)

     Unit1;
    
    
    
    
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;
    
    
      TForm1 = (TForm)
        XMLDocument1: TXMLDocument;
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        Button4: TButton;
         FormCreate(Sender: TObject);
         Button1Click(Sender: TObject);
         Button2Click(Sender: TObject);
         Button3Click(Sender: TObject);
         Button4Click(Sender: TObject);
      
        
      
        
      ;
    
    
      Form1: TForm1;
    
    
    
    
    
    
     TForm1.FormCreate(Sender: TObject);
    
      XMLDocument1.LoadFromFile();
      
    ;
    
    
    
     TForm1.Button1Click(Sender: TObject);
    
      ShowMessage(XMLDocument1.DocumentElement.ChildNodes[].ChildNodes[].Text); 
      ShowMessage(XMLDocument1.DocumentElement.ChildNodes[].ChildNodes[].Text); 
      ShowMessage(XMLDocument1.DocumentElement.ChildNodes[].ChildNodes[].Text); 
      
      
      
      
      ShowMessage(XMLDocument1.DocumentElement.ChildNodes[].ChildNodes[].Text); 
    ;
    
    
    
     TForm1.Button2Click(Sender: TObject);
    
      nodeList: IXMLNodeList;
      node: IXMLNode;
    
      nodeList := XMLDocument1.DocumentElement.ChildNodes;
      node := nodeList[];
    
      ShowMessage(node.ChildNodes[].Text); 
      ShowMessage(node.ChildNodes[].Text); 
      ShowMessage(node.ChildNodes[].Text); 
    ;
    
    
    
     TForm1.Button3Click(Sender: TObject);
    
      nodeList: IXMLNodeList;
      node: IXMLNode;
      num,i: Integer;
    
      nodeList := XMLDocument1.DocumentElement.ChildNodes;
      num := nodeList.Count;
    
       i :=   num -  
      
        node := nodeList[i];
        ShowMessage(node.ChildNodes[].Text); 
      ;
    ;
    
    
    
     TForm1.Button4Click(Sender: TObject);
    
      nodeList: IXMLNodeList;
      node: IXMLNode;
      num,i: Integer;
    
      nodeList := XMLDocument1.DocumentElement.ChildNodes;
      num := nodeList.Count;
    
       i :=   num -  
      
        node := nodeList[i];
        ShowMessage(node.ChildValues[]); 
      ;
    ;
    
    .
    

  • 相关阅读:
    Django内置Admin解析
    python项目 配置文件 的设置
    Django---信号
    bash配置文件
    week4 作业
    shell基础练习题
    shell基础
    shell变量与运算
    week3 作业
    文件权限管理
  • 原文地址:https://www.cnblogs.com/martian6125/p/9631018.html
Copyright © 2011-2022 走看看