delphi 读取服务器xml文件,delphi创建和读取xml（xml简单操作举例）

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,XMLDoc,XMLIntf, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

Xml: TXMLDocument;

Rootnode,node : IXMLNode;

begin

Xml := TXMLDocument.Create(nil);

// Xml.LoadFromFile(‘aaa.xml’);

try

//加入版本信息 ‘<?xml version=”1.0″ encoding=”GB2312″ ?> ’

Xml.Active := True;

Xml.Ve