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

LazUtils: Fix errors in LazUTF8.UTF8LowerCase. By forum user Munair.

Browse Source 
git-svn-id: trunk@56662 -
This commit is contained in:
juha 2017-12-07 15:54:54 +00:00
parent f6a2099d25
commit be0dcc0b50
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazutils/lazutf8.pas
View File

@ -2113,8 +2113,7 @@ begin
else if (c2 = #$84) and (c3 = #$AA) then
begin
inc(InStr, 3);
if c3 = #$AA then OutStr^ := #$6B
else OutStr^ := #$E5;
OutStr^ := #$6B;
inc(OutStr);
inc(CounterDiff, 2);
Continue;
@ -2162,10 +2161,10 @@ begin
}
else if (c2 = #$92) and (c3 in [#$B6..#$BF]) then
begin
new_c3 := #$93;
new_c2 := #$93;
new_c3 := chr(ord(c3) - $26);
end
else if (c2 = #$93) and (c3 in [#$80..#$8F]) then new_c3 := chr(ord(c3) + 26)
else if (c2 = #$93) and (c3 in [#$80..#$8F]) then new_c3 := chr(ord(c3) + $26)
{
$2C00..$2C2E Result:=u+48; E2 B0 80..E2 B0 AE