paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 09:16:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

laz2_write: option to preserve whitespace

Browse Source 
git-svn-id: trunk@35252 -
This commit is contained in:
mattias 2012-02-08 23:47:53 +00:00
parent ffd6e0f8b5
commit 9a1c0d2141
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/lazutils/laz2_xmlwrite.pas
View File

@ -31,7 +31,8 @@ uses Classes, laz2_DOM, SysUtils, laz2_xmlutils;
type
TXMLWriterFlag = (
xwfSpecialCharsInAttributeValue // write #13 as #13 instead of as &xD;
xwfSpecialCharsInAttributeValue, // write #13 as #13 instead of as &xD;
xwfPreserveWhiteSpace
);
TXMLWriterFlags = set of TXMLWriterFlag;
@ -645,13 +646,15 @@ begin
begin
SavedInsideTextNode := FInsideTextNode;
wrtChr('>');
FInsideTextNode := FCanonical or (Child.NodeType in [TEXT_NODE, CDATA_SECTION_NODE]);
FInsideTextNode := FCanonical or (Child.NodeType in [TEXT_NODE, CDATA_SECTION_NODE])
or (xwfPreserveWhiteSpace in WriteFlags);
//writeln(Space(FIndentCount*2),'TXMLWriter.VisitElement START FirstChild=',Child.ClassName,':',Child.LocalName,' FInsideTextNode=',FInsideTextNode);
IncIndent;
repeat
//writeln(Space(FIndentCount*2),'TXMLWriter.VisitElement CHILD=',Child.ClassName,':',Child.LocalName,' FInsideTextNode=',FInsideTextNode);
WriteNode(Child);
FInsideTextNode := FCanonical or (Child.NodeType in [TEXT_NODE, CDATA_SECTION_NODE]);
FInsideTextNode := FCanonical or (Child.NodeType in [TEXT_NODE, CDATA_SECTION_NODE])
or (xwfPreserveWhiteSpace in WriteFlags);
Child := Child.NextSibling;
until Child = nil;
DecIndent;