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

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

方法如下：
1、使用 FormatXMLData 函数。示例代码如下：
Memo1.Lines.Text := FormatXMLData(XMLDocument1.XML.Text);2、设置相关选项：

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

这是一个正确的例子，供你参考：

<?xml   version= "1.0 "   encoding= "utf-8 "?>  <root> <student>      <name> zhang </name>      <age> 21 </age>     </student> </root>

uses     xmldoc;

procedure   tform1.button1click(sender:   tobject);  var      a:   txmldocument;      b:string;  begin      a:=txmldocument.create(self);      a.filename:= 'd:\student.xml ';      //a.xml.text := xmlstr;从字符串中读取原始xml字符串     a.active:=true;      b:=a.documentelement.childnodes['student'].childnodes['name'].text;      showmessage(b);      edit1.text:=b;      a.free;  end;