Release 24
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@51 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby
91
synachar.pas
91
synachar.pas
@@ -1,5 +1,5 @@
|
||||
{==============================================================================|
|
||||
| Project : Delphree - Synapse | 003.001.000 |
|
||||
| Project : Delphree - Synapse | 003.002.000 |
|
||||
|==============================================================================|
|
||||
| Content: Charset conversion support |
|
||||
|==============================================================================|
|
||||
@@ -33,10 +33,10 @@ interface
|
||||
type
|
||||
TMimeChar = (ISO_8859_1, ISO_8859_2, ISO_8859_3,
|
||||
ISO_8859_4, ISO_8859_5, ISO_8859_6, ISO_8859_7,
|
||||
ISO_8859_8, ISO_8859_9, ISO_8859_10, CP1250,
|
||||
CP1251, CP1252, CP1253, CP1254, CP1255, CP1256,
|
||||
CP1257, CP1258, KOI8_R, CP895, CP852,
|
||||
UCS_2, UCS_4, UTF_8, UTF_7);
|
||||
ISO_8859_8, ISO_8859_9, ISO_8859_10, ISO_8859_13,
|
||||
ISO_8859_14, ISO_8859_15, CP1250, CP1251, CP1252,
|
||||
CP1253, CP1254, CP1255, CP1256, CP1257, CP1258,
|
||||
KOI8_R, CP895, CP852, UCS_2, UCS_4, UTF_8, UTF_7);
|
||||
|
||||
TMimeSetChar = set of TMimeChar;
|
||||
|
||||
@@ -297,6 +297,66 @@ const
|
||||
$00F8, $0173, $00FA, $00FB, $00FC, $00FD, $00FE, $0138
|
||||
);
|
||||
|
||||
CharISO_8859_13: array[128..255] of Word =
|
||||
(
|
||||
$0080, $0081, $0082, $0083, $0084, $0085, $0086, $0087,
|
||||
$0088, $0089, $008A, $008B, $008C, $008D, $008E, $008F,
|
||||
$0090, $0091, $0092, $0093, $0094, $0095, $0096, $0097,
|
||||
$0098, $0099, $009A, $009B, $009C, $009D, $009E, $009F,
|
||||
$00A0, $201D, $00A2, $00A3, $00A4, $201E, $00A6, $00A7,
|
||||
$00D8, $00A9, $0156, $00AB, $00AC, $00AD, $00AE, $00C6,
|
||||
$00B0, $00B1, $00B2, $00B3, $201C, $00B5, $00B6, $00B7,
|
||||
$00F8, $00B9, $0157, $00BB, $00BC, $00BD, $00BE, $00E6,
|
||||
$0104, $012E, $0100, $0106, $00C4, $00C5, $0118, $0112,
|
||||
$010C, $00C9, $0179, $0116, $0122, $0136, $012A, $013B,
|
||||
$0160, $0143, $0145, $00D3, $014C, $00D5, $00D6, $00D7,
|
||||
$0172, $0141, $015A, $016A, $00DC, $017B, $017D, $00DF,
|
||||
$0105, $012F, $0101, $0107, $00E4, $00E5, $0119, $0113,
|
||||
$010D, $00E9, $017A, $0117, $0123, $0137, $012B, $013C,
|
||||
$0161, $0144, $0146, $00F3, $014D, $00F5, $00F6, $00F7,
|
||||
$0173, $0142, $015B, $016B, $00FC, $017C, $017E, $2019
|
||||
);
|
||||
|
||||
CharISO_8859_14: array[128..255] of Word =
|
||||
(
|
||||
$0080, $0081, $0082, $0083, $0084, $0085, $0086, $0087,
|
||||
$0088, $0089, $008A, $008B, $008C, $008D, $008E, $008F,
|
||||
$0090, $0091, $0092, $0093, $0094, $0095, $0096, $0097,
|
||||
$0098, $0099, $009A, $009B, $009C, $009D, $009E, $009F,
|
||||
$00A0, $1E02, $1E03, $00A3, $010A, $010B, $1E0A, $00A7,
|
||||
$1E80, $00A9, $1E82, $1E0B, $1EF2, $00AD, $00AE, $0178,
|
||||
$1E1E, $1E1F, $0120, $0121, $1E40, $1E41, $00B6, $1E56,
|
||||
$1E81, $1E57, $1E83, $1E60, $1EF3, $1E84, $1E85, $1E61,
|
||||
$00C0, $00C1, $00C2, $00C3, $00C4, $00C5, $00C6, $00C7,
|
||||
$00C8, $00C9, $00CA, $00CB, $00CC, $00CD, $00CE, $00CF,
|
||||
$0174, $00D1, $00D2, $00D3, $00D4, $00D5, $00D6, $1E6A,
|
||||
$00D8, $00D9, $00DA, $00DB, $00DC, $00DD, $0176, $00DF,
|
||||
$00E0, $00E1, $00E2, $00E3, $00E4, $00E5, $00E6, $00E7,
|
||||
$00E8, $00E9, $00EA, $00EB, $00EC, $00ED, $00EE, $00EF,
|
||||
$0175, $00F1, $00F2, $00F3, $00F4, $00F5, $00F6, $1E6B,
|
||||
$00F8, $00F9, $00FA, $00FB, $00FC, $00FD, $0177, $00FF
|
||||
);
|
||||
|
||||
CharISO_8859_15: array[128..255] of Word =
|
||||
(
|
||||
$0080, $0081, $0082, $0083, $0084, $0085, $0086, $0087,
|
||||
$0088, $0089, $008A, $008B, $008C, $008D, $008E, $008F,
|
||||
$0090, $0091, $0092, $0093, $0094, $0095, $0096, $0097,
|
||||
$0098, $0099, $009A, $009B, $009C, $009D, $009E, $009F,
|
||||
$00A0, $00A1, $00A2, $00A3, $20AC, $00A5, $0160, $00A7,
|
||||
$0161, $00A9, $00AA, $00AB, $00AC, $00AD, $00AE, $00AF,
|
||||
$00B0, $00B1, $00B2, $00B3, $017D, $00B5, $00B6, $00B7,
|
||||
$017E, $00B9, $00BA, $00BB, $0152, $0153, $0178, $00BF,
|
||||
$00C0, $00C1, $00C2, $00C3, $00C4, $00C5, $00C6, $00C7,
|
||||
$00C8, $00C9, $00CA, $00CB, $00CC, $00CD, $00CE, $00CF,
|
||||
$00D0, $00D1, $00D2, $00D3, $00D4, $00D5, $00D6, $00D7,
|
||||
$00D8, $00D9, $00DA, $00DB, $00DC, $00DD, $00DE, $00DF,
|
||||
$00E0, $00E1, $00E2, $00E3, $00E4, $00E5, $00E6, $00E7,
|
||||
$00E8, $00E9, $00EA, $00EB, $00EC, $00ED, $00EE, $00EF,
|
||||
$00F0, $00F1, $00F2, $00F3, $00F4, $00F5, $00F6, $00F7,
|
||||
$00F8, $00F9, $00FA, $00FB, $00FC, $00FD, $00FE, $00FF
|
||||
);
|
||||
|
||||
{Eastern European
|
||||
}
|
||||
CharCP_1250: array[128..255] of Word =
|
||||
@@ -629,6 +689,12 @@ begin
|
||||
CopyArray(CharISO_8859_9, Result);
|
||||
ISO_8859_10:
|
||||
CopyArray(CharISO_8859_10, Result);
|
||||
ISO_8859_13:
|
||||
CopyArray(CharISO_8859_13, Result);
|
||||
ISO_8859_14:
|
||||
CopyArray(CharISO_8859_14, Result);
|
||||
ISO_8859_15:
|
||||
CopyArray(CharISO_8859_15, Result);
|
||||
CP1250:
|
||||
CopyArray(CharCP_1250, Result);
|
||||
CP1251:
|
||||
@@ -1004,6 +1070,15 @@ begin
|
||||
if Pos('ISO-8859-10', Value) = 1 then
|
||||
Result := ISO_8859_10
|
||||
else
|
||||
if Pos('ISO-8859-13', Value) = 1 then
|
||||
Result := ISO_8859_13
|
||||
else
|
||||
if Pos('ISO-8859-14', Value) = 1 then
|
||||
Result := ISO_8859_14
|
||||
else
|
||||
if Pos('ISO-8859-15', Value) = 1 then
|
||||
Result := ISO_8859_15
|
||||
else
|
||||
if Pos('ISO-8859-2', Value) = 1 then
|
||||
Result := ISO_8859_2
|
||||
else
|
||||
@@ -1103,6 +1178,12 @@ begin
|
||||
Result := 'ISO-8859-9';
|
||||
ISO_8859_10:
|
||||
Result := 'ISO-8859-10';
|
||||
ISO_8859_13:
|
||||
Result := 'ISO-8859-13';
|
||||
ISO_8859_14:
|
||||
Result := 'ISO-8859-14';
|
||||
ISO_8859_15:
|
||||
Result := 'ISO-8859-15';
|
||||
CP1250:
|
||||
Result := 'WINDOWS-1250';
|
||||
CP1251:
|
||||
|
||||
Reference in New Issue
Block a user