Changeset 451 for trunk/Include/Classes/System/Xml/XmlDeclaration.ab

Timestamp:

Mar 3, 2008, 8:38:25 PM (16 years ago)

Author:

dai

Message:

XmlDocument.Saveメソッドを実装。
Xml文書生成処理を改良。

File:

• trunk/Include/Classes/System/Xml/XmlDeclaration.ab (modified) (1 diff)

trunk/Include/Classes/System/Xml/XmlDeclaration.ab

@@ -26 +26 @@
 
     Override Function OwnerXmlSupportedIndent( isIndent = False As Boolean, indent = 0 As Long ) As String
-        Return "<?" + InnerXml + "?>"
+        Dim crlfStr = ""
+        If isIndent Then
+            ' インデントをサポートする場合
+            crlfStr = Ex"\r\n"
+        End If
+        Return "<?" + InnerXml + "?>" + crlfStr
     End Function
 End Class