paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 14:18:17 +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

23
components/lazutils/asiancodepagefunctions.inc
View File

@ -41,13 +41,22 @@ begin
end end
else else
begin begin
code := Byte(c) shl 8; // shift-jis halfwidth
c:=Src^; if (CodeP=932) and (c in [#$a0..#$df,#$fd..#$ff]) then
Lbyte := byte(Src^); begin
if (c=#0) and (Src-PChar(s)>=len) then break; code := Byte(c);
code := code + Byte(c); code1:= code;
code1:=code; end
Inc(Src); else
begin
code := Byte(c) shl 8;
c:=Src^;
Lbyte := byte(Src^);
if (c=#0) and (Src-PChar(s)>=len) then break;
code := code + Byte(c);
code1:=code;
Inc(Src);
end;
code := ArrayUni[SearchTable(ArrayCP, code)]; code := ArrayUni[SearchTable(ArrayCP, code)];
if code=0 then if code=0 then