paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 17:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* "<" and ">" are now written as "&lt;" and "&gt;"

Browse Source
This commit is contained in:
sg 2004-01-20 12:27:19 +00:00
parent 2995d4ec4d
commit 317dc7d650
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fcl/xml/xmlwrite.pp
View File

@ -144,7 +144,7 @@ type
TSpecialCharCallback = procedure(c: Char); TSpecialCharCallback = procedure(c: Char);
const const
AttrSpecialChars = ['"', '&']; AttrSpecialChars = ['<', '>', '"', '&'];
TextSpecialChars = ['<', '>', '&']; TextSpecialChars = ['<', '>', '&'];
@ -171,7 +171,11 @@ end;
procedure AttrSpecialCharCallback(c: Char); procedure AttrSpecialCharCallback(c: Char);
begin begin
if c = '"' then if c = '<' then
wrt('&lt;')
else if c = '>' then
wrt('&gt;')
else if c = '"' then
wrt('&quot;') wrt('&quot;')
else if c = '&' then else if c = '&' then
wrt('&amp;') wrt('&amp;')
@ -546,7 +550,10 @@ end.
{ {
$Log$ $Log$
Revision 1.12 2003-12-01 23:59:12 sg Revision 1.13 2004-01-20 12:27:19 sg
* "<" and ">" are now written as "&lt;" and "&gt;"
Revision 1.12 2003/12/01 23:59:12 sg
* Added support for main branch to be able to read and write at least * Added support for main branch to be able to read and write at least
ISO8859-1 encoded files correctly. A much improved solution will be ISO8859-1 encoded files correctly. A much improved solution will be
provided when the mainbranch RTL fully supports Unicode/WideStrings. provided when the mainbranch RTL fully supports Unicode/WideStrings.