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

* Escape < >

Browse Source
This commit is contained in:
michael 2019-07-07 18:35:08 +00:00
parent 5db4d0571c
commit cb834b582f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl/browserconsole.pas
View File

@ -86,10 +86,12 @@ Var
begin begin
CL:=LastLine.InnerHtml; CL:=LastLine.InnerHtml;
CL:=CL+String(S); CL:=CL+String(S);
cl:=StringReplace(cl,'<','&lt;',[rfReplaceAll]);
cl:=StringReplace(cl,'>','&gt;',[rfReplaceAll]);
cl:=StringReplace(cl,' ','&nbsp;',[rfReplaceAll]); cl:=StringReplace(cl,' ','&nbsp;',[rfReplaceAll]);
cl:=StringReplace(cl,#13#10,'<br>',[rfReplaceAll]); cl:=StringReplace(cl,#13#10,'<br>',[rfReplaceAll]);
cl:=StringReplace(cl,#10,'<br>',[rfReplaceAll]); cl:=StringReplace(cl,#10,'<br>',[rfReplaceAll]);
cl:=StringReplace(cl,#10,'<br>',[rfReplaceAll]); cl:=StringReplace(cl,#13,'<br>',[rfReplaceAll]);
LastLine.InnerHtml:=CL; LastLine.InnerHtml:=CL;
if NewLine then if NewLine then
begin begin