paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-20 21:46:14 +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

5
components/lazutils/lazutf8.pas
View File

@ -1492,9 +1492,6 @@ begin
inc(OutStr); inc(OutStr);
end; end;
end; end;
#$c3..#$E1:
begin
case c of
#$c3..#$D2: #$c3..#$D2:
begin begin
OutStr^ := c; OutStr^ := c;
@ -1515,8 +1512,6 @@ begin
inc(OutStr, 3); inc(OutStr, 3);
HandleTripplByte; 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