paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 13:38:00 +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#147, // #150
#226#128#148, // #151
'', // #152
#194#152, // #152
#226#132#162, // #153
#209#153, // #154
#226#128#186, // #155
@ -5189,7 +5189,7 @@ end;
function UnicodeToCP1251(Unicode: cardinal): integer;
begin
case Unicode of
0..127: Result:=Unicode;
0..127,152: Result:=Unicode;
160: Result:=160;
164: Result:=164;
166..167: Result:=Unicode;