paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 01:47:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@42016 -
This commit is contained in:
mattias 2013-07-08 16:54:28 +00:00
parent 11ff90f78b
commit 300123e075
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/lazutils/lconvencoding.pas
View File

@ -1645,7 +1645,7 @@ const
'~', // '~'
#127, // #127
#226#130#172, // #128
'', // #129
#194#129, // #129
#226#128#154, // #130
#198#146, // #131
#226#128#158, // #132
@ -1657,10 +1657,10 @@ const
#197#160, // #138
#226#128#185, // #139
#197#146, // #140
'', // #141
#194#141, // #141
#197#189, // #142
'', // #143
'', // #144
#194#143, // #143
#194#144, // #144
#226#128#152, // #145
#226#128#153, // #146
#226#128#156, // #147
@ -1673,7 +1673,7 @@ const
#197#161, // #154
#226#128#186, // #155
#197#147, // #156
'', // #157
#194#157, // #157
#197#190, // #158
#197#184, // #159
#194#160, // #160
@ -5249,7 +5249,7 @@ end;
function UnicodeToCP1252(Unicode: cardinal): integer;
begin
case Unicode of
0..127: Result:=Unicode;
0..127,129,141,143,144,157: Result:=Unicode;
160..255: Result:=Unicode;
338: Result:=140;
339: Result:=156;