zoukankan      html  css  js  c++  java
  • 黄聪:Delphi 中的 XMLDocument 类详解(20) 动态建立 XMLDocument 对象

    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, xmldom, XMLIntf, msxmldom, XMLDoc;

    type
    TForm1
    = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    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}

    //使用 TXMLDocument 类
    procedure TForm1.Button1Click(Sender: TObject);
    var
    xmlDoc: TXMLDocument;
    begin
    xmlDoc :
    = TXMLDocument.Create(nil);
    xmlDoc.LoadFromFile(
    'c:\temp\test.xml');
    ShowMessage(FormatXMLData(xmlDoc.XML.Text));
    FreeAndNil(xmlDoc);
    end;


    //使用 IXMLDocument 接口
    procedure TForm1.Button2Click(Sender: TObject);
    var
    xmlDoc: IXMLDocument;
    begin
    xmlDoc :
    = TXMLDocument.Create(nil);
    xmlDoc.LoadFromFile(
    'c:\temp\test.xml');
    ShowMessage(FormatXMLData(xmlDoc.XML.Text));
    xmlDoc :
    = nil;
    end;


    //使用 IXMLDocument 接口的 NewXMLDocument 方法
    procedure TForm1.Button3Click(Sender: TObject);
    var
    xmlDoc: IXMLDocument;
    begin
    xmlDoc :
    = NewXMLDocument;
    xmlDoc.LoadFromFile(
    'c:\temp\test.xml');
    ShowMessage(FormatXMLData(xmlDoc.XML.Text));
    xmlDoc :
    = nil;
    end;

    end.

    出处:http://www.cnblogs.com/del/archive/2008/01/08/1029692.html

  • 相关阅读:
    反射
    接口和抽象类
    套接字通信
    C#的urlencode
    go语言摘记
    c# Httphelper帮助类 简约版
    maven
    读取资源文件里的值---来源practical-aspnetcore项目
    JWT使用---来源practical-aspnetcore项目
    .net core国际化
  • 原文地址:https://www.cnblogs.com/huangcong/p/1809977.html
Copyright © 2011-2022 走看看