paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 11:10:23 +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 #127, // #127
#226#130#172, // #128 #226#130#172, // #128
'', // #129 #194#129, // #129
#226#128#154, // #130 #226#128#154, // #130
#198#146, // #131 #198#146, // #131
#226#128#158, // #132 #226#128#158, // #132
#226#128#166, // #133 #226#128#166, // #133
#226#128#160, // #134 #226#128#160, // #134
#226#128#161, // #135 #226#128#161, // #135
'', // #136 #194#136, // #136
#226#128#176, // #137 #226#128#176, // #137
'', // #138 #194#138, // #138
#226#128#185, // #139 #226#128#185, // #139
'', // #140 #194#140, // #140
'', // #141 #194#141, // #141
'', // #142 #194#142, // #142
'', // #143 #194#143, // #143
'', // #144 #194#144, // #144
#226#128#152, // #145 #226#128#152, // #145
#226#128#153, // #146 #226#128#153, // #146
#226#128#156, // #147 #226#128#156, // #147
@ -1927,14 +1927,14 @@ 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
'', // #154 #194#154, // #154
#226#128#186, // #155 #226#128#186, // #155
'', // #156 #194#156, // #156
'', // #157 #194#157, // #157
'', // #158 #194#158, // #158
'', // #159 #194#159, // #159
#194#160, // #160 #194#160, // #160
#206#133, // #161 #206#133, // #161
#206#134, // #162 #206#134, // #162
@ -1945,7 +1945,7 @@ const
#194#167, // #167 #194#167, // #167
#194#168, // #168 #194#168, // #168
#194#169, // #169 #194#169, // #169
'', // #170 #194#170, // #170
#194#171, // #171 #194#171, // #171
#194#172, // #172 #194#172, // #172
#194#173, // #173 #194#173, // #173
@ -1985,7 +1985,7 @@ const
#206#159, // #207 #206#159, // #207
#206#160, // #208 #206#160, // #208
#206#161, // #209 #206#161, // #209
'', // #210 #206#162, // #210
#206#163, // #211 #206#163, // #211
#206#164, // #212 #206#164, // #212
#206#165, // #213 #206#165, // #213
@ -2030,7 +2030,7 @@ const
#207#140, // #252 #207#140, // #252
#207#141, // #253 #207#141, // #253
#207#142, // #254 #207#142, // #254
'' // #255 #207#143 // #255
); );
ArrayCP1254ToUTF8: TCharToUTF8Table = ( ArrayCP1254ToUTF8: TCharToUTF8Table = (
@ -5281,7 +5281,7 @@ end;
function UnicodeToCP1253(Unicode: cardinal): integer; function UnicodeToCP1253(Unicode: cardinal): integer;
begin begin
case Unicode of 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; 160: Result:=160;
163..169: Result:=Unicode; 163..169: Result:=Unicode;
171..174: Result:=Unicode; 171..174: Result:=Unicode;
@ -5294,8 +5294,7 @@ begin
901..902: Result:=Unicode-740; 901..902: Result:=Unicode-740;
904..906: Result:=Unicode-720; 904..906: Result:=Unicode-720;
908: Result:=188; 908: Result:=188;
910..929: Result:=Unicode-720; 910..975: Result:=Unicode-720;
931..974: Result:=Unicode-720;
8211..8212: Result:=Unicode-8061; 8211..8212: Result:=Unicode-8061;
8213: Result:=175; 8213: Result:=175;
8216..8217: Result:=Unicode-8071; 8216..8217: Result:=Unicode-8071;