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

* Add EncodeHTMLEntities

Browse Source
This commit is contained in:
michael 2019-10-27 13:13:23 +00:00
parent 7a882c55b8
commit 116614c42c
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/rtl/sysutils.pas
View File

@ -626,6 +626,8 @@ function IsEqualGUID(const guid1, guid2: TGuid): Boolean;
function GuidCase(const guid: TGuid; const List: array of TGuid): Integer;
Function CreateGUID(out GUID : TGUID) : Integer;
Function EncodeHTMLEntities (S : String) : String;
implementation
procedure ShowException(ExceptObject: TObject; ExceptAddr: Pointer);
@ -4427,5 +4429,17 @@ begin
Result := '';
end;
Function EncodeHTMLEntities (S : String) : String;
begin
Result:='';
if S='' then exit;
asm
return S.replace(/[\u00A0-\u9999<>\&]/gim, function(i) {
return '&#'+i.charCodeAt(0)+';';
});
end;
end;
end.