使用delphi能否让xml自动换行缩进

[jickieshan]

这个截图是通过delphi读写xml生成的数据
我想让生成的数据可以自动边行和缩进，类似于下图


生成第一个图的代码如下（部分代码）：
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 :='222222';
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 := '1111';
Xml.SaveToFile('aaa.xml');
xml.Active := False;
showmessage('创建成功！');
请求帮助，试了好多办法都不行

[smhilyyan]

用你的代码就是你这样的效果...估计是打开的工具问题

[smhilyyan]

我用IE打开的

[jickieshan]

难道只能用IE打开才能这样吗，用其他的打开的时候就不能让代码自动换行显示啊，我用的是Notepad++显示的，显示的是一行，不想用IE显示，求帮助

[CZP98168]

XMLDoc单元有一个FormatXMLData函数

[hongfanghan]

楼上正解 unit XMLDoc; function FormatXMLData(const XMLData: DOMString): DOMString; 示例 CurrentEditor.Lines.Text := FormatXMLData(trim(CurrentEditor.Lines.Text));

[踏雪无痕]

学习了，楼上的函数不错啊

[lyhoo163]

下面代码就是Tree形显示XML文件： Memo3.Lines.Text := FormatXMLData(XMLDocument1.XML.Text);

[iamduo]

Xml.Options := xml.Options + [xxxAutoIdent]

[NotMe2008]

XMLDocument.Options := [doNodeAutoIndent];//换行 XMLDocument.NodeIndentStr := #9;//使用TAB字符缩进

[lypjiji]

楼上正解，4楼9楼的正解，两种方法缩进。