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

最新推荐文章于 2025-09-13 13:48:09 发布

转载最新推荐文章于 2025-09-13 13:48:09 发布 · 1.1k 阅读

文章标签：

这篇博客演示了如何使用 Delphi 进行 XML 文件的创建和读取。通过示例代码，展示了如何创建 XML 节点，设置节点属性，并保存到文件中，以及如何加载 XML 文件并遍历其内容，将节点值显示在 Memo 控件中。

部署运行你感兴趣的模型镜像

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.Version := ‘1.0’;

Xml.Encoding :=’GB2312′;

Rootnode := Xml.CreateNode(‘CIF_INFO’);

Xml.DocumentElement := Rootnode;

node := Xml.CreateNode(‘TXNCODE’);