为什么我用XMLDocument生成的xml文件只有一行,没有换行?
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');