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

* Patch from Vincent Snijders to fix EscapeText

Browse Source 
git-svn-id: trunk@11610 -
This commit is contained in:
michael 2008-08-18 10:58:00 +00:00
parent cbdd282f19
commit acf0c8019b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-base/src/whtml.pp
View File

@ -136,9 +136,9 @@ end;
function THTMLWriter.EscapeText(AText: String): String; function THTMLWriter.EscapeText(AText: String): String;
begin begin
// replace by a more sensitive method. // replace by a more sensitive method.
Result:=StringReplace(AText,'&','&amp',[rfReplaceAll]); Result:=StringReplace(AText,'&','&',[rfReplaceAll]);
Result:=StringReplace(Result,'<','&lt',[rfReplaceAll]); Result:=StringReplace(Result,'<','&lt;',[rfReplaceAll]);
Result:=StringReplace(Result,'>','&gt',[rfReplaceAll]); Result:=StringReplace(Result,'>','&gt;',[rfReplaceAll]);
Result:=StringReplace(Result,#10,'<BR>',[rfreplaceAll]); Result:=StringReplace(Result,#10,'<BR>',[rfreplaceAll]);
end; end;