paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 20:36:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: xmlread: preserve whitespace between attributes

Browse Source 
git-svn-id: trunk@42167 -
This commit is contained in:
mattias 2013-07-21 08:21:39 +00:00
parent 15044a3da0
commit b0d883f915
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/laz2_xmlread.pas
View File

@ -1987,7 +1987,7 @@ begin
FSource.NextChar; FSource.NextChar;
if (wc = Delim) and (FSource.FEntity = start) then if (wc = Delim) and (FSource.FEntity = start) then
Break; Break;
if (wc = #10) or (wc = #9) or (wc = #13) then if (not FPreserveWhitespace) and (ord(wc) in [9,10,13]) then
wc := #32; wc := #32;
BufAppend(FValue, wc); BufAppend(FValue, wc);
end end