paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 03:39:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: In UCS2BEToUTF8 and UCS2LEToUTF8 skip little/big endian BOM. Merge request !88 by Zaher Dirkey.

Browse Source
This commit is contained in:
Juha 2022-04-16 12:41:31 +03:00
parent 88b3151b38
commit 76f7524436
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/lazutils/lconvencoding.pas
View File

@ -505,8 +505,13 @@ begin
len:=length(s) div 2;
if len=0 then
exit('');
SetLength(Result,len*3);// UTF-8 is at most 3/2 times the size
Src:=PWord(Pointer(s));
if (Src^=$FEFF) then // Skip BOM
begin
inc(Src);
dec(len);
end;
SetLength(Result,len*3);// UTF-8 is at most 3/2 times the size
Dest:=PChar(Result);
for i:=1 to len do begin
c:=LEtoN(Src^);
@ -536,8 +541,13 @@ begin
len:=length(s) div 2;
if len=0 then
exit('');
SetLength(Result,len*3);// UTF-8 is at most three times the size
Src:=PWord(Pointer(s));
if (Src^=$FFFE) then // Skip BOM
begin
inc(Src);
dec(len);
end;
SetLength(Result,len*3);// UTF-8 is at most three times the size
Dest:=PChar(Result);
for i:=1 to len do begin
c:=BEtoN(Src^);