paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-08 03:45:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils, LConvEncoding: Fix CP932 (Shift_JIS). Issue #41277, patch by rasberryrabbit.

Browse Source
This commit is contained in:
Juha 2024-12-25 02:18:10 +02:00
parent 5038bb77e1
commit ef08272eb6
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/lazutils/asiancodepagefunctions.inc
View File

@ -40,6 +40,14 @@ begin
Inc(Dest);
end
else
begin
// shift-jis halfwidth
if (CodeP=932) and (c in [#$a0..#$df,#$fd..#$ff]) then
begin
code := Byte(c);
code1:= code;
end
else
begin
code := Byte(c) shl 8;
c:=Src^;
@ -48,6 +56,7 @@ begin
code := code + Byte(c);
code1:=code;
Inc(Src);
end;
code := ArrayUni[SearchTable(ArrayCP, code)];
if code=0 then