TXMLDocument换行的两种方案

手写代码：

 

XML格式化使用msxml引擎，Delphi代码如下：

Delphi/Pascal code

 

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99

unit uXMLFormat;   interface   uses   SysUtils, ActiveX, msxml;           function PrettyFormat(const AXML: String): String;   implementation   const                SMSDOMNotInstalled = 'Microsoft MSXML 4.0 or upper is not installed.';   // msxml parser 4.0   ProgID_FreeThreadedDOMDocument40 = 'Msxml2.FreeThreadedDOMDocument.4.0';   // msxml parser 6.0   ProgID_FreeThreadedDOMDocument60 = 'Msxml2.FreeThreadedDOMDocument.6.0';   type   EMSXMLDomException = class(Exception);   function TryObjectCreateFromProgID(const ProgIDList: array of PWideChar): IUnknown; overload; var   I: Integer;   FClsID: TGUID;   Status: HResult; begin   for I := Low(ProgIDList) to High(ProgIDList) do     if Succeeded(CLSIDFromProgID(ProgIDList[I], FClsID)) then     begin       Status := CoCreateInstance(FClsID, nil, CLSCTX_INPROC_SERVER or         CLSCTX_LOCAL_SERVER, IUnknown, Result);       if Status = S_OK then Exit;     end; end;   function CreateDOMDocument: IXMLDOMDocument; begin   Result := TryObjectCreateFromProgID([ProgID_FreeThreadedDOMDocument60, ProgID_FreeThreadedDOMDocument40]) as IXMLDOMDocument;   if not Assigned(Result) then     raise EMSXMLDomException.Create(SMSDOMNotInstalled); end;   function PrettyFormat(const AXML: String): String;   var   FXMLDoc: IXMLDOMDocument;       procedure TraverseNode(Node: IXMLDOMNode; Indent: string);   const     IndentLevel = #9;   var     LineBreak: IXMLDOMNode;     ChildNode, NextNode: IXMLDOMNode;     AnyChildNode: Boolean;   begin     if Node = nil then       Exit;       AnyChildNode:= False;     ChildNode:= Node.Get_firstChild;     while ChildNode <> nil do     begin       NextNode:= ChildNode.nextSibling;         if ChildNode.nodeType = NODE_ELEMENT then       begin         AnyChildNode:= True;           // Insert LineBreak before each child Node         LineBreak:= FXMLDoc.createTextNode(sLineBreak +           Indent + IndentLevel);         Node.insertBefore(LineBreak, ChildNode);           TraverseNode(ChildNode, Indent + IndentLevel);       end;         ChildNode:= NextNode;     end;       if (Node.nodeType = NODE_ELEMENT) and AnyChildNode then     begin       // Add LineBreak after Node       ChildNode:= NextNode;       LineBreak:= FXMLDoc.createTextNode(sLineBreak + Indent);       Node.appendChild(LineBreak);     end;   end;   begin   Result := AXML;   FXMLDoc := CreateDOMDocument;   if Assigned(FXMLDoc) and FXMLDoc.loadXML(AXML) then   begin     TraverseNode(FXMLDoc.documentElement, '');     Result := FXMLDoc.xml;   end; end;   end.

使用实例：

 

Delphi/Pascal code

 

?

1	Memo2.Text := PrettyFormat('<root><budded/><who/></root>');

 

格式化后结果：

XML/HTML code

 

?

1 2 3 4

<root>     <budded/>     <who/> </root>

--------------------------------------------------------------------------------------------------------

无需那么复杂，设置XMLDocument的Options属性就可以了，doNodeAutoIndent 才是关键的。举个例子：

Delphi/Pascal code

 

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

uses XMLIntf,XMLDoc;   procedure TForm1.Button1Click(Sender: TObject); var     xmlDoc: IXMLDocument;     aNode: IXMLNode; begin     xmlDoc := TXMLDocument.Create(nil);     try         // 加入版本信息         xmlDoc.Active := True;         xmlDoc.Version := '1.0';         xmlDoc.Encoding :='GB2312';           xmlDoc.Options := xmlDoc.Options + [doNodeAutoIndent];           // 加入根结点         aNode := xmlDoc.AddChild('RootNode');         // 加入子结点         aNode := aNode.AddChild('ChildNode');         // 设置子结点属性         aNode.SetAttribute('Name', '名称');         aNode.SetAttribute('Len', '长度');         // 设置子结点内容         aNode.Text := '文本内容';           xmlDoc.SaveToFile('C:\ccrun\123.xml');     finally         xmlDoc := nil ;     end; end;

 

 

参考：http://bbs.csdn.net/topics/310071629