mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-08 21:06:07 +02:00
LazUtils, LConvEncoding: Fix CP932 (Shift_JIS). Issue #41277, patch by rasberryrabbit.
This commit is contained in:
parent
5038bb77e1
commit
ef08272eb6
@ -40,6 +40,14 @@ begin
|
|||||||
Inc(Dest);
|
Inc(Dest);
|
||||||
end
|
end
|
||||||
else
|
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
|
begin
|
||||||
code := Byte(c) shl 8;
|
code := Byte(c) shl 8;
|
||||||
c:=Src^;
|
c:=Src^;
|
||||||
@ -48,6 +56,7 @@ begin
|
|||||||
code := code + Byte(c);
|
code := code + Byte(c);
|
||||||
code1:=code;
|
code1:=code;
|
||||||
Inc(Src);
|
Inc(Src);
|
||||||
|
end;
|
||||||
|
|
||||||
code := ArrayUni[SearchTable(ArrayCP, code)];
|
code := ArrayUni[SearchTable(ArrayCP, code)];
|
||||||
if code=0 then
|
if code=0 then
|
||||||
|
Loading…
Reference in New Issue
Block a user