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

lazutils: made codepage conversion 1251 to UTF8 and back to 1251 lossless

Browse Source 
git-svn-id: trunk@42013 -
This commit is contained in:
mattias 2013-07-08 16:51:54 +00:00
parent fa58ecb761
commit 5956369187
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/lconvencoding.pas
View File

@ -1409,7 +1409,7 @@ const
#226#128#162, // #149 #226#128#162, // #149
#226#128#147, // #150 #226#128#147, // #150
#226#128#148, // #151 #226#128#148, // #151
'', // #152 #194#152, // #152
#226#132#162, // #153 #226#132#162, // #153
#209#153, // #154 #209#153, // #154
#226#128#186, // #155 #226#128#186, // #155
@ -5189,7 +5189,7 @@ end;
function UnicodeToCP1251(Unicode: cardinal): integer; function UnicodeToCP1251(Unicode: cardinal): integer;
begin begin
case Unicode of case Unicode of
0..127: Result:=Unicode; 0..127,152: Result:=Unicode;
160: Result:=160; 160: Result:=160;
164: Result:=164; 164: Result:=164;
166..167: Result:=Unicode; 166..167: Result:=Unicode;