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

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

Browse Source 
git-svn-id: trunk@42018 -
This commit is contained in:
mattias 2013-07-08 17:03:48 +00:00
parent 44d50da995
commit b3d1d85a4b
1 changed files with 19 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
components/lazutils/lconvencoding.pas
View File

@ -1904,22 +1904,22 @@ const
'~', // '~'
#127, // #127
#226#130#172, // #128
'', // #129
#194#129, // #129
#226#128#154, // #130
#198#146, // #131
#226#128#158, // #132
#226#128#166, // #133
#226#128#160, // #134
#226#128#161, // #135
'', // #136
#194#136, // #136
#226#128#176, // #137
'', // #138
#194#138, // #138
#226#128#185, // #139
'', // #140
'', // #141
'', // #142
'', // #143
'', // #144
#194#140, // #140
#194#141, // #141
#194#142, // #142
#194#143, // #143
#194#144, // #144
#226#128#152, // #145
#226#128#153, // #146
#226#128#156, // #147
@ -1927,14 +1927,14 @@ const
#226#128#162, // #149
#226#128#147, // #150
#226#128#148, // #151
'', // #152
#194#152, // #152
#226#132#162, // #153
'', // #154
#194#154, // #154
#226#128#186, // #155
'', // #156
'', // #157
'', // #158
'', // #159
#194#156, // #156
#194#157, // #157
#194#158, // #158
#194#159, // #159
#194#160, // #160
#206#133, // #161
#206#134, // #162
@ -1945,7 +1945,7 @@ const
#194#167, // #167
#194#168, // #168
#194#169, // #169
'', // #170
#194#170, // #170
#194#171, // #171
#194#172, // #172
#194#173, // #173
@ -1985,7 +1985,7 @@ const
#206#159, // #207
#206#160, // #208
#206#161, // #209
'', // #210
#206#162, // #210
#206#163, // #211
#206#164, // #212
#206#165, // #213
@ -2030,7 +2030,7 @@ const
#207#140, // #252
#207#141, // #253
#207#142, // #254
'' // #255
#207#143 // #255
);
ArrayCP1254ToUTF8: TCharToUTF8Table = (
@ -5281,7 +5281,7 @@ end;
function UnicodeToCP1253(Unicode: cardinal): integer;
begin
case Unicode of
0..127: Result:=Unicode;
0..127,129,136,138,140,141,142,143,144,152,154,156,157,158,159,170: Result:=Unicode;
160: Result:=160;
163..169: Result:=Unicode;
171..174: Result:=Unicode;
@ -5294,8 +5294,7 @@ begin
901..902: Result:=Unicode-740;
904..906: Result:=Unicode-720;
908: Result:=188;
910..929: Result:=Unicode-720;
931..974: Result:=Unicode-720;
910..975: Result:=Unicode-720;
8211..8212: Result:=Unicode-8061;
8213: Result:=175;
8216..8217: Result:=Unicode-8071;