为什么我用XMLDocument生成的xml文件只有一行，没有换行？

Question

RootNode := XMLDocument1.AddChild('LIBRARY');
    while not eof do
    begin
      BookNode := RootNode.AddChild('BOOK');
      
      CurrentNode := BookNode.AddChild('NAME');
      CurrentNode.NodeValue := FieldByName('A.NAME').AsString;      CurrentNode := BookNode.AddChild('AUTHOR');
      CurrentNode.SetAttributeNS('DYNASTRY', '', FieldByName('DYNASTRY').AsString);
      CurrentNode.NodeValue := FieldByName('B.NAME').AsString;

    end；
    XMLDocument1.savetofile('a:\book.xml');

Answer 1

Options:=[doNodeAutoCreate,doNodeAutoIndent,doAttrNull,doAutoPrefix,doNamespaceDecl]
                  ^^^^^^^^^^^^^^^^加上这个