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

  • 相关阅读:
    ICPC-Beijing 2006 狼抓兔子
    【模板】多项式求逆
    AHOI2014/JSOI2014 奇怪的计算器
    Hnoi2013 切糕
    Ahoi2014&Jsoi2014 支线剧情
    bzoj3774 最优选择
    WC2019游记
    HNOI2007 分裂游戏
    bzoj1457 棋盘游戏
    poj2484 A Funny Game
  • 原文地址:https://www.cnblogs.com/huangcong/p/1809977.html
Copyright © 2011-2022 走看看