xml

第七城市

delphi创建和读取

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.Active := True;

Xml.Version := '1.0';

Xml.Encoding :='GB2312';

Rootnode := Xml.CreateNode('CIF_INFO');

Xml.DocumentElement := Rootnode;

node := Xml.CreateNode('TXNCODE');

Rootnode.ChildNodes.Add(node);

node.Text := '420001';

node := Xml.CreateNode('RESPCODE');

Rootnode.ChildNodes.Add(node);

node.Text := '0000';

node := Xml.CreateNode('CIFID');

Rootnode.ChildNodes.Add(node);

node.Text := '0030209728';

node := Xml.CreateNode('RESCODE');

Rootnode.ChildNodes.Add(node);

node.Text := '0000';

node := Xml.CreateNode('RESMSG');

Rootnode.ChildNodes.Add(node);

node.Text := '';

Xml.SaveToFile('aaa.xml');

xml.Active := False;

showmessage('创建成功！');

finally

Xml.Free;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

Xml: TXMLDocument;

Rootnode,node : IXMLNode;

nodelist:IXMLNodeList;

b,c,str :string;

i:Integer;

begin

Xml := TXMLDocument.Create(Application);

try

Xml.LoadFromFile('aaa.xml');

Xml.Active := True;

Rootnode := Xml.DocumentElement;

nodeList :=Rootnode.ChildNodes;

for i:=0 to nodelist.Count-1 do

begin

if? Rootnode.ChildNodes[i].NodeValue = null then

begin

c:='空';

end

else

begin

c:= Rootnode.ChildNodes[i].NodeValue;

end;

str:=str+c+#13#10;

end;

//b := Rootnode.ChildNodes[ 'CIFID'].NodeValue;

Memo1.Lines.Add(str);

xml.Active := False;

finally

Xml.Free;

end;

end;

end.