paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 15:57:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: added BytesOf and StringOf, issue 34580, from silvioprog

Browse Source
This commit is contained in:
mattias 2018-11-21 08:36:51 +00:00
parent 6b98060678
commit 5c7c57af41
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
packages/rtl/sysutils.pas
View File

@ -204,6 +204,9 @@ procedure AppendStr(var Dest: String; const S: string);
function Format(const Fmt: String; const Args: array of JSValue): String;
function BytesOf(const AVal: string): TBytes;
function StringOf(const ABytes: TBytes): string;
// JavaScript built-in functions
function LocaleCompare(const s1, s2, locales: String): Boolean; assembler; overload;
function NormalizeStr(const S: String; const Norm: String = 'NFC'): String; assembler; overload; // not in IE
@ -1985,6 +1988,24 @@ begin
end;
end;
function BytesOf(const AVal: string): TBytes;
var
I: SizeUInt;
begin
SetLength(Result, Length(AVal));
for I := 0 to Length(AVal)-1 do
Result[I] := Ord(AVal[I+1]);
end;
function StringOf(const ABytes: TBytes): string;
var
I: Integer;
begin
SetLength(Result, Length(ABytes));
for I := 0 to Length(ABytes)-1 do
Result[I+1] := Char(ABytes[I]);
end;
function LocaleCompare(const s1, s2, locales: String): Boolean; assembler;
asm
return s1.localeCompare(s2,locales) == 0;