paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-18 15:27:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtf8: fix 2nd loop

Browse Source 
git-svn-id: trunk@32863 -
This commit is contained in:
martin 2011-10-12 17:00:14 +00:00
parent 50f1667209
commit 524c46d2cc
1 changed files with 19 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
components/lazutils/lazutf8.pas
View File

@ -1492,31 +1492,26 @@ begin
inc(OutStr); inc(OutStr);
end; end;
end; end;
#$c3..#$E1: #$c3..#$D2:
begin begin
case c of OutStr^ := c;
#$c3..#$D2: d := InStr[1]; // 2nd char in 2 byte utf8
begin OutStr[1] := d;
OutStr^ := c; inc(InStr, 2);
d := InStr[1]; // 2nd char in 2 byte utf8 inc(OutStr, 2);
OutStr[1] := d; HandleDualByte;
inc(InStr, 2); if CounterDiff = 0 then break;
inc(OutStr, 2); end; // c3..d2
HandleDualByte; #$e1:
if CounterDiff = 0 then break; begin
end; // c3..d2 OutStr^ := c;
#$e1: d := InStr[1]; // 2nd char in 2 byte utf8
begin OutStr[1] := d;
OutStr^ := c; OutStr[2] := InStr[2];
d := InStr[1]; // 2nd char in 2 byte utf8 inc(InStr, 3);
OutStr[1] := d; inc(OutStr, 3);
OutStr[2] := InStr[2]; HandleTripplByte;
inc(InStr, 3);
inc(OutStr, 3);
HandleTripplByte;
end;
end; end;
end;
else else
begin begin
// Copy the character if the string was disaligned by previous changes // Copy the character if the string was disaligned by previous changes