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[]); 
      ;
    ;
    
    .
    

  • 相关阅读:
    server.port 在单元测试中,调用的类或者方法这个地方获取到的端口号就会变成-1
    SpringBoot读取application.properties文件
    javaWeb 使用 filter 处理全站乱码问题
    web.xml里<filter-mapping>中的<dispatcher>作用
    SpringBoot中使用Interceptor
    精通Spring Boot
    Spring MVC之@ControllerAdvice详解
    Spring Boot 优雅的配置拦截器方式
    【Spring学习笔记-MVC-17】Spring MVC之拦截器
    C#构造方法(函数)
  • 原文地址:https://www.cnblogs.com/martian6125/p/9631018.html
Copyright © 2011-2022 走看看