mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-10 17:58:20 +02:00
LazUtils: TXmlReader/Writer, always encode #0 / accept encoded #0 in input if xrfAllowSpecialCharsInAttributeValue is set.
This commit is contained in:
parent
dc6c180009
commit
9e4b5a308a
@ -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
|
||||||
|
@ -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 = [']'];
|
||||||
|
Loading…
Reference in New Issue
Block a user