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