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

fixed encoding

Browse Source 
git-svn-id: trunk@31014 -
This commit is contained in:
mattias 2011-06-02 19:14:01 +00:00
parent 657c9e5726
commit bd0ecad60d
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/codetools/laz2_xmlwrite.pas
View File

@ -348,7 +348,7 @@ begin
'"': Sender.wrtStr(QuotStr); '"': Sender.wrtStr(QuotStr);
'&': Sender.wrtStr(AmpStr); '&': Sender.wrtStr(AmpStr);
'<': Sender.wrtStr(ltStr); '<': Sender.wrtStr(ltStr);
// Escape whitespace using CharRefs to be consistent with W3 spec § 3.3.3 // Escape whitespace using CharRefs to be consistent with W3 spec § 3.3.3
#0..#15: Sender.wrtStr('&#x'+HexChr[ord(s[idx])]+';'); #0..#15: Sender.wrtStr('&#x'+HexChr[ord(s[idx])]+';');
#16..#31: Sender.wrtStr('&#x1'+HexChr[ord(s[idx])-16]+';'); #16..#31: Sender.wrtStr('&#x1'+HexChr[ord(s[idx])-16]+';');
else else