paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 16:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@42022 -
This commit is contained in:
mattias 2013-07-08 17:34:44 +00:00
parent 3483a510dc
commit 0745efd94a
1 changed files with 29 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
components/lazutils/lconvencoding.pas
View File

@ -2422,7 +2422,7 @@ 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
@ -2431,13 +2431,13 @@ const
#226#128#161, // #135 #226#128#161, // #135
#203#134, // #136 #203#134, // #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
@ -2447,12 +2447,12 @@ const
#226#128#148, // #151 #226#128#148, // #151
#203#156, // #152 #203#156, // #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
#194#161, // #161 #194#161, // #161
#194#162, // #162 #194#162, // #162
@ -2495,7 +2495,7 @@ const
#214#183, // #199 #214#183, // #199
#214#184, // #200 #214#184, // #200
#214#185, // #201 #214#185, // #201
'', // #202 #214#186, // #202
#214#187, // #203 #214#187, // #203
#214#188, // #204 #214#188, // #204
#214#189, // #205 #214#189, // #205
@ -2510,13 +2510,13 @@ const
#215#178, // #214 #215#178, // #214
#215#179, // #215 #215#179, // #215
#215#180, // #216 #215#180, // #216
'', // #217 #215#181, // #217
'', // #218 #215#182, // #218
'', // #219 #215#183, // #219
'', // #220 #215#184, // #220
'', // #221 #215#185, // #221
'', // #222 #215#186, // #222
'', // #223 #215#187, // #223
#215#144, // #224 #215#144, // #224
#215#145, // #225 #215#145, // #225
#215#146, // #226 #215#146, // #226
@ -2544,11 +2544,11 @@ const
#215#168, // #248 #215#168, // #248
#215#169, // #249 #215#169, // #249
#215#170, // #250 #215#170, // #250
'', // #251 #215#171, // #251
'', // #252 #215#172, // #252
#226#128#142, // #253 #226#128#142, // #253
#226#128#143, // #254 #226#128#143, // #254
'' // #255 #215#173 // #255
); );
ArrayCP1256ToUTF8: TCharToUTF8Table = ( ArrayCP1256ToUTF8: TCharToUTF8Table = (
@ -5356,8 +5356,8 @@ end;
function UnicodeToCP1255(Unicode: cardinal): integer; function UnicodeToCP1255(Unicode: cardinal): integer;
begin begin
case Unicode of case Unicode of
0..127: Result:=Unicode; 0..127,129,138,140..144,154: Result:=Unicode;
160..163: Result:=Unicode; 156..163: Result:=Unicode;
165..169: Result:=Unicode; 165..169: Result:=Unicode;
171..185: Result:=Unicode; 171..185: Result:=Unicode;
187..191: Result:=Unicode; 187..191: Result:=Unicode;
@ -5366,10 +5366,10 @@ begin
402: Result:=131; 402: Result:=131;
710: Result:=136; 710: Result:=136;
732: Result:=152; 732: Result:=152;
1456..1465: Result:=Unicode-1264; 1456..1475: Result:=Unicode-1264;
1467..1475: Result:=Unicode-1264; 1488..1516: Result:=Unicode-1264;
1488..1514: Result:=Unicode-1264; 1517: Result:=255;
1520..1524: Result:=Unicode-1308; 1520..1535: Result:=Unicode-1308;
8206..8207: Result:=Unicode-7953; 8206..8207: Result:=Unicode-7953;
8211..8212: Result:=Unicode-8061; 8211..8212: Result:=Unicode-8061;
8216..8217: Result:=Unicode-8071; 8216..8217: Result:=Unicode-8071;