paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-10 17:58:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: TXmlReader/Writer, always encode #0 / accept encoded #0 in input if xrfAllowSpecialCharsInAttributeValue is set.

Browse Source
This commit is contained in:
Martin 2023-03-19 18:36:28 +01:00
parent dc6c180009
commit 9e4b5a308a
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/laz2_xmlread.pas
View File

@ -1904,7 +1904,7 @@ begin
until Value > $10FFFF; until Value > $10FFFF;
case Value of case Value of
$01..$08, $0B..$0C, $0E..$1F: $00..$08, $0B..$0C, $0E..$1F:
if FXML11 or (xrfAllowSpecialCharsInAttributeValue in FFlags) then if FXML11 or (xrfAllowSpecialCharsInAttributeValue in FFlags) then
BufAppend(ToFill, DOMChar(Value)) BufAppend(ToFill, DOMChar(Value))
else else

2
components/lazutils/laz2_xmlwrite.pas
View File

@ -171,7 +171,7 @@ end;
const const
AttrSpecialChars : array[boolean] of TSetOfChar = ( AttrSpecialChars : array[boolean] of TSetOfChar = (
['<', '"', '''', '&', #0..#31], // false: default ['<', '"', '''', '&', #0..#31], // false: default
['<', '"', '''', '&'] // true: write special characters ['<', '"', '''', '&', #0] // true: write special characters
); );
TextSpecialChars = ['<', '>', '&', #0..#31]; TextSpecialChars = ['<', '>', '&', #0..#31];
CDSectSpecialChars = [']']; CDSectSpecialChars = [']'];