mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-05 16:12:34 +02:00
0c8df133dd
- An attempt to unify the defines for the different scenario's in the use of (not) codepage aware ansistrings and the use of the "Utf8 in RTL" feature. It makes for better separation of code and thus better readability and ease of maintainance (and in a later stadium it makes it easier to remove code that deals with non codepage aware ansistrings (fpc < 3.0)). - Also replace (FPC_FULLVERSION >= xxxx) with FPC_HAS_CPSTRING where appropriate. - Replace the custom HasCP define with built in FPC_HAS_CPSTRING define. git-svn-id: trunk@50498 -
7460 lines
216 KiB
ObjectPascal
7460 lines
216 KiB
ObjectPascal
{
|
|
*****************************************************************************
|
|
This file is part of the Lazarus Component Library (LCL)
|
|
|
|
See the file COPYING.modifiedLGPL.txt, included in this distribution,
|
|
for details about the license.
|
|
*****************************************************************************
|
|
|
|
Note:
|
|
The functions of this unit are thread-safe.
|
|
}
|
|
unit LConvEncoding;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
{$i lazutils_defines.inc}
|
|
|
|
interface
|
|
|
|
{ $Define DisableAsianCodePages}
|
|
//{$if FPC_FULLVERSION >= 30000}
|
|
{$IFDEF UTF8_RTL}
|
|
// Windows provides conversion functions.
|
|
// Unix: unit cwstring provides conversion functions which are used by default UTF-8 encoding system.
|
|
{$Define UseSystemCPConv} // use system conversions
|
|
{$ENDIF}
|
|
//{$IFEND}
|
|
{$ifdef UseLCPConv}{$undef UseSystemCPConv}{$endif}
|
|
|
|
uses
|
|
SysUtils, Classes, dos, LazUTF8
|
|
{$IFDEF EnableIconvEnc},iconvenc{$ENDIF};
|
|
|
|
//encoding names
|
|
const
|
|
EncodingUTF8 = 'utf8';
|
|
EncodingAnsi = 'ansi';
|
|
EncodingUTF8BOM = 'utf8bom'; // UTF-8 with byte order mark
|
|
EncodingUCS2LE = 'ucs2le'; // UCS 2 byte little endian
|
|
EncodingUCS2BE = 'ucs2be'; // UCS 2 byte big endian
|
|
|
|
EncodingCP1250 = 'cp1250';
|
|
EncodingCP1251 = 'cp1251';
|
|
EncodingCP1252 = 'cp1252';
|
|
EncodingCP1253 = 'cp1253';
|
|
EncodingCP1254 = 'cp1254';
|
|
EncodingCP1255 = 'cp1255';
|
|
EncodingCP1256 = 'cp1256';
|
|
EncodingCP1257 = 'cp1257';
|
|
EncodingCP1258 = 'cp1258';
|
|
|
|
EncodingCP437 = 'cp437';
|
|
EncodingCP850 = 'cp850';
|
|
EncodingCP852 = 'cp852';
|
|
EncodingCP866 = 'cp866';
|
|
EncodingCP874 = 'cp874';
|
|
|
|
EncodingCP932 = 'cp932';
|
|
EncodingCP936 = 'cp936';
|
|
EncodingCP949 = 'cp949';
|
|
EncodingCP950 = 'cp950';
|
|
|
|
EncodingCPMac = 'macintosh';
|
|
EncodingCPKOI8 = 'koi8';
|
|
|
|
EncodingCPIso1 = 'iso88591';
|
|
EncodingCPIso2 = 'iso88592';
|
|
EncodingCPIso15 = 'iso885915';
|
|
|
|
//signatures in ansi
|
|
const
|
|
UTF8BOM = #$EF#$BB#$BF;
|
|
UTF16BEBOM = #$FE#$FF;
|
|
UTF16LEBOM = #$FF#$FE;
|
|
UTF32BEBOM = #0#0#$FE#$FF;
|
|
UTF32LEBOM = #$FE#$FF#0#0;
|
|
|
|
function GuessEncoding(const s: string): string;
|
|
|
|
function ConvertEncodingFromUTF8(const s, ToEncoding: string; out Encoded: boolean
|
|
{$ifdef FPC_HAS_CPSTRING}; SetTargetCodePage: boolean = false{$endif}): string;
|
|
function ConvertEncodingToUTF8(const s, FromEncoding: string; out Encoded: boolean): string;
|
|
// For UTF8 use the above functions, they save you one parameter
|
|
function ConvertEncoding(const s, FromEncoding, ToEncoding: string
|
|
{$ifdef FPC_HAS_CPSTRING}; SetTargetCodePage: boolean = false{$endif}): string;
|
|
|
|
// This routine should obtain the encoding utilized by ansistring in the RTL
|
|
function GetDefaultTextEncoding: string;
|
|
// This routine returns the console text encoding, which might be different
|
|
// from the normal system encoding in some Windows systems
|
|
// see http://mantis.freepascal.org/view.php?id=20552
|
|
function GetConsoleTextEncoding: string;
|
|
function NormalizeEncoding(const Encoding: string): string;
|
|
|
|
type
|
|
TConvertEncodingFunction = function(const s: string): string;
|
|
{$ifdef FPC_HAS_CPSTRING}
|
|
TConvertUTF8ToEncodingFunc = function(const s: string; SetTargetCodePage: boolean = false): RawByteString;
|
|
{$else}
|
|
TConvertUTF8ToEncodingFunc = function(const s: string): string;
|
|
{$endif}
|
|
TCharToUTF8Table = array[char] of PChar;
|
|
TUnicodeToCharID = function(Unicode: cardinal): integer;
|
|
var
|
|
ConvertAnsiToUTF8: TConvertEncodingFunction = nil;
|
|
ConvertUTF8ToAnsi: TConvertUTF8ToEncodingFunc = nil;
|
|
|
|
function UTF8BOMToUTF8(const s: string): string; // UTF8 with BOM
|
|
function ISO_8859_1ToUTF8(const s: string): string; // central europe
|
|
function ISO_8859_15ToUTF8(const s: string): string; // Western European languages
|
|
function ISO_8859_2ToUTF8(const s: string): string; // eastern europe
|
|
function CP1250ToUTF8(const s: string): string; // central europe
|
|
function CP1251ToUTF8(const s: string): string; // cyrillic
|
|
function CP1252ToUTF8(const s: string): string; // latin 1
|
|
function CP1253ToUTF8(const s: string): string; // greek
|
|
function CP1254ToUTF8(const s: string): string; // turkish
|
|
function CP1255ToUTF8(const s: string): string; // hebrew
|
|
function CP1256ToUTF8(const s: string): string; // arabic
|
|
function CP1257ToUTF8(const s: string): string; // baltic
|
|
function CP1258ToUTF8(const s: string): string; // vietnam
|
|
function CP437ToUTF8(const s: string): string; // DOS central europe
|
|
function CP850ToUTF8(const s: string): string; // DOS western europe
|
|
function CP852ToUTF8(const s: string): string; // DOS central europe
|
|
function CP866ToUTF8(const s: string): string; // DOS and Windows console's cyrillic
|
|
function CP874ToUTF8(const s: string): string; // thai
|
|
function KOI8ToUTF8(const s: string): string; // russian cyrillic
|
|
function MacintoshToUTF8(const s: string): string; // Macintosh, alias Mac OS Roman
|
|
function SingleByteToUTF8(const s: string; const Table: TCharToUTF8Table): string;
|
|
function UCS2LEToUTF8(const s: string): string; // UCS2-LE 2byte little endian
|
|
function UCS2BEToUTF8(const s: string): string; // UCS2-BE 2byte big endian
|
|
|
|
function UTF8ToUTF8BOM(const s: string): string; // UTF8 with BOM
|
|
{$ifdef FPC_HAS_CPSTRING}
|
|
function UTF8ToISO_8859_1(const s: string; SetTargetCodePage: boolean = false): RawByteString; // central europe
|
|
function UTF8ToISO_8859_2(const s: string; SetTargetCodePage: boolean = false): RawByteString; // eastern europe
|
|
function UTF8ToISO_8859_15(const s: string; SetTargetCodePage: boolean = false): RawByteString; // Western European languages
|
|
function UTF8ToCP1250(const s: string; SetTargetCodePage: boolean = false): RawByteString; // central europe
|
|
function UTF8ToCP1251(const s: string; SetTargetCodePage: boolean = false): RawByteString; // cyrillic
|
|
function UTF8ToCP1252(const s: string; SetTargetCodePage: boolean = false): RawByteString; // latin 1
|
|
function UTF8ToCP1253(const s: string; SetTargetCodePage: boolean = false): RawByteString; // greek
|
|
function UTF8ToCP1254(const s: string; SetTargetCodePage: boolean = false): RawByteString; // turkish
|
|
function UTF8ToCP1255(const s: string; SetTargetCodePage: boolean = false): RawByteString; // hebrew
|
|
function UTF8ToCP1256(const s: string; SetTargetCodePage: boolean = false): RawByteString; // arabic
|
|
function UTF8ToCP1257(const s: string; SetTargetCodePage: boolean = false): RawByteString; // baltic
|
|
function UTF8ToCP1258(const s: string; SetTargetCodePage: boolean = false): RawByteString; // vietnam
|
|
function UTF8ToCP437(const s: string; SetTargetCodePage: boolean = false): RawByteString; // DOS central europe
|
|
function UTF8ToCP850(const s: string; SetTargetCodePage: boolean = false): RawByteString; // DOS western europe
|
|
function UTF8ToCP852(const s: string; SetTargetCodePage: boolean = false): RawByteString; // DOS central europe
|
|
function UTF8ToCP866(const s: string; SetTargetCodePage: boolean = false): RawByteString; // DOS and Windows console's cyrillic
|
|
function UTF8ToCP874(const s: string; SetTargetCodePage: boolean = false): RawByteString; // thai
|
|
function UTF8ToKOI8(const s: string; SetTargetCodePage: boolean = false): RawByteString; // russian cyrillic
|
|
function UTF8ToKOI8U(const s: string; SetTargetCodePage: boolean = false): RawByteString; // ukrainian cyrillic
|
|
function UTF8ToKOI8RU(const s: string; SetTargetCodePage: boolean = false): RawByteString; // belarussian cyrillic
|
|
function UTF8ToMacintosh(const s: string; SetTargetCodePage: boolean = false): RawByteString; // Macintosh, alias Mac OS Roman
|
|
{$ELSE}
|
|
function UTF8ToISO_8859_1(const s: string): string; // central europe
|
|
function UTF8ToISO_8859_15(const s: string): string; // Western European languages
|
|
function UTF8ToISO_8859_2(const s: string): string; // eastern europe
|
|
function UTF8ToCP1250(const s: string): string; // central europe
|
|
function UTF8ToCP1251(const s: string): string; // cyrillic
|
|
function UTF8ToCP1252(const s: string): string; // latin 1
|
|
function UTF8ToCP1253(const s: string): string; // greek
|
|
function UTF8ToCP1254(const s: string): string; // turkish
|
|
function UTF8ToCP1255(const s: string): string; // hebrew
|
|
function UTF8ToCP1256(const s: string): string; // arabic
|
|
function UTF8ToCP1257(const s: string): string; // baltic
|
|
function UTF8ToCP1258(const s: string): string; // vietnam
|
|
function UTF8ToCP437(const s: string): string; // DOS central europe
|
|
function UTF8ToCP850(const s: string): string; // DOS western europe
|
|
function UTF8ToCP852(const s: string): string; // DOS central europe
|
|
function UTF8ToCP866(const s: string): string; // DOS and Windows console's cyrillic
|
|
function UTF8ToCP874(const s: string): string; // thai
|
|
function UTF8ToKOI8(const s: string): string; // russian cyrillic
|
|
function UTF8ToKOI8U(const s: string): string; // ukrainian cyrillic
|
|
function UTF8ToKOI8RU(const s: string): string; // belarussian cyrillic
|
|
function UTF8ToMacintosh(const s: string): string; // Macintosh, alias Mac OS Roman
|
|
{$ENDIF}
|
|
// custom conversion
|
|
function UTF8ToSingleByte(const s: string; const UTF8CharConvFunc: TUnicodeToCharID): string;
|
|
|
|
function UTF8ToUCS2LE(const s: string): string; // UCS2-LE 2byte little endian without BOM
|
|
function UTF8ToUCS2BE(const s: string): string; // UCS2-BE 2byte big endian without BOM
|
|
|
|
{$IFnDEF DisableAsianCodePages}
|
|
// Asian encodings
|
|
function CP932ToUTF8(const s: string): string; // Japanese
|
|
function CP936ToUTF8(const s: string): string; // Chinese
|
|
function CP949ToUTF8(const s: string): string; // Korea
|
|
function CP950ToUTF8(const s: string): string; // Chinese Complex
|
|
|
|
function DBCSToUTF8(const s: string; CodeP: integer): string;
|
|
|
|
{$ifdef FPC_HAS_CPSTRING}
|
|
function UTF8ToCP932(const s: string; SetTargetCodePage: boolean = false): RawByteString; // Japanese
|
|
function UTF8ToCP936(const s: string; SetTargetCodePage: boolean = false): RawByteString; // Chinese, essentially the same as GB 2312 and a predecessor to GB 18030
|
|
function UTF8ToCP949(const s: string; SetTargetCodePage: boolean = false): RawByteString; // Korea
|
|
function UTF8ToCP950(const s: string; SetTargetCodePage: boolean = false): RawByteString; // Chinese Complex
|
|
{$ELSE}
|
|
function UTF8ToCP932(const s: string): string; // Japanese
|
|
function UTF8ToCP936(const s: string): string; // Chinese, essentially the same as GB 2312 and a predecessor to GB 18030
|
|
function UTF8ToCP949(const s: string): string; // Korea
|
|
function UTF8ToCP950(const s: string): string; // Chinese Complex
|
|
{$ENDIF}
|
|
// Common function used by all UTF8ToXXX functions.
|
|
function UTF8ToDBCS(const s: string; const UTF8CharConvFunc: TUnicodeToCharID): string;
|
|
{$ENDIF}
|
|
|
|
procedure GetSupportedEncodings(List: TStrings);
|
|
|
|
implementation
|
|
|
|
{$IFDEF Windows}
|
|
uses Windows;
|
|
{$ENDIF}
|
|
|
|
var
|
|
EncodingValid: boolean = false;
|
|
DefaultTextEncoding: string = EncodingAnsi;
|
|
|
|
{$IFnDEF DisableAsianCodePages}
|
|
{$include asiancodepages.inc}
|
|
{$include asiancodepagefunctions.inc}
|
|
{$ENDIF}
|
|
|
|
{$IFDEF Windows}
|
|
// AConsole - If false, it is the general system encoding,
|
|
// if true, it is the console encoding
|
|
function GetWindowsEncoding(AConsole: Boolean = False): string;
|
|
var
|
|
cp : UINT;
|
|
{$IFDEF WinCE}
|
|
// CP_UTF8 is missing in the windows unit of the Windows CE RTL
|
|
const
|
|
CP_UTF8 = 65001;
|
|
{$ENDIF}
|
|
begin
|
|
if AConsole then cp := GetOEMCP
|
|
else cp := GetACP;
|
|
|
|
case cp of
|
|
CP_UTF8: Result := EncodingUTF8;
|
|
else
|
|
Result:='cp'+IntToStr(cp);
|
|
end;
|
|
end;
|
|
{$ELSE}
|
|
{$IFNDEF Darwin}
|
|
function GetUnixEncoding: string;
|
|
var
|
|
Lang: string;
|
|
i: integer;
|
|
begin
|
|
Result:=EncodingAnsi;
|
|
|
|
lang := GetEnv('LC_ALL');
|
|
if Length(lang) = 0 then
|
|
begin
|
|
lang := GetEnv('LC_MESSAGES');
|
|
if Length(lang) = 0 then
|
|
begin
|
|
lang := GetEnv('LANG');
|
|
end;
|
|
end;
|
|
i:=pos('.',Lang);
|
|
if (i>0) and (i<=length(Lang)) then
|
|
Result:=copy(Lang,i+1,length(Lang)-i);
|
|
end;
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
function GetDefaultTextEncoding: string;
|
|
begin
|
|
if EncodingValid then begin
|
|
Result:=DefaultTextEncoding;
|
|
exit;
|
|
end;
|
|
|
|
{$IFDEF Windows}
|
|
Result:=GetWindowsEncoding;
|
|
{$ELSE}
|
|
{$IFDEF Darwin}
|
|
Result:=EncodingUTF8;
|
|
{$ELSE}
|
|
Result:=GetUnixEncoding;
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
Result:=NormalizeEncoding(Result);
|
|
|
|
DefaultTextEncoding:=Result;
|
|
EncodingValid:=true;
|
|
end;
|
|
|
|
function GetConsoleTextEncoding: string;
|
|
begin
|
|
{$ifdef Windows}
|
|
Result:=GetWindowsEncoding(True);
|
|
Result:=NormalizeEncoding(Result);
|
|
{$else}
|
|
Result := GetDefaultTextEncoding;
|
|
{$endif}
|
|
end;
|
|
|
|
function NormalizeEncoding(const Encoding: string): string;
|
|
var
|
|
i: Integer;
|
|
begin
|
|
Result:=LowerCase(Encoding);
|
|
for i:=length(Result) downto 1 do
|
|
if Result[i]='-' then System.Delete(Result,i,1);
|
|
end;
|
|
|
|
const
|
|
ArrayISO_8859_1ToUTF8: TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
#194#128, // #128
|
|
#194#129, // #129
|
|
#194#130, // #130
|
|
#194#131, // #131
|
|
#194#132, // #132
|
|
#194#133, // #133
|
|
#194#134, // #134
|
|
#194#135, // #135
|
|
#194#136, // #136
|
|
#194#137, // #137
|
|
#194#138, // #138
|
|
#194#139, // #139
|
|
#194#140, // #140
|
|
#194#141, // #141
|
|
#194#142, // #142
|
|
#194#143, // #143
|
|
#194#144, // #144
|
|
#194#145, // #145
|
|
#194#146, // #146
|
|
#194#147, // #147
|
|
#194#148, // #148
|
|
#194#149, // #149
|
|
#194#150, // #150
|
|
#194#151, // #151
|
|
#194#152, // #152
|
|
#194#153, // #153
|
|
#194#154, // #154
|
|
#194#155, // #155
|
|
#194#156, // #156
|
|
#194#157, // #157
|
|
#194#158, // #158
|
|
#194#159, // #159
|
|
#194#160, // #160
|
|
#194#161, // #161
|
|
#194#162, // #162
|
|
#194#163, // #163
|
|
#194#164, // #164
|
|
#194#165, // #165
|
|
#194#166, // #166
|
|
#194#167, // #167
|
|
#194#168, // #168
|
|
#194#169, // #169
|
|
#194#170, // #170
|
|
#194#171, // #171
|
|
#194#172, // #172
|
|
#194#173, // #173
|
|
#194#174, // #174
|
|
#194#175, // #175
|
|
#194#176, // #176
|
|
#194#177, // #177
|
|
#194#178, // #178
|
|
#194#179, // #179
|
|
#194#180, // #180
|
|
#194#181, // #181
|
|
#194#182, // #182
|
|
#194#183, // #183
|
|
#194#184, // #184
|
|
#194#185, // #185
|
|
#194#186, // #186
|
|
#194#187, // #187
|
|
#194#188, // #188
|
|
#194#189, // #189
|
|
#194#190, // #190
|
|
#194#191, // #191
|
|
#195#128, // #192
|
|
#195#129, // #193
|
|
#195#130, // #194
|
|
#195#131, // #195
|
|
#195#132, // #196
|
|
#195#133, // #197
|
|
#195#134, // #198
|
|
#195#135, // #199
|
|
#195#136, // #200
|
|
#195#137, // #201
|
|
#195#138, // #202
|
|
#195#139, // #203
|
|
#195#140, // #204
|
|
#195#141, // #205
|
|
#195#142, // #206
|
|
#195#143, // #207
|
|
#195#144, // #208
|
|
#195#145, // #209
|
|
#195#146, // #210
|
|
#195#147, // #211
|
|
#195#148, // #212
|
|
#195#149, // #213
|
|
#195#150, // #214
|
|
#195#151, // #215
|
|
#195#152, // #216
|
|
#195#153, // #217
|
|
#195#154, // #218
|
|
#195#155, // #219
|
|
#195#156, // #220
|
|
#195#157, // #221
|
|
#195#158, // #222
|
|
#195#159, // #223
|
|
#195#160, // #224
|
|
#195#161, // #225
|
|
#195#162, // #226
|
|
#195#163, // #227
|
|
#195#164, // #228
|
|
#195#165, // #229
|
|
#195#166, // #230
|
|
#195#167, // #231
|
|
#195#168, // #232
|
|
#195#169, // #233
|
|
#195#170, // #234
|
|
#195#171, // #235
|
|
#195#172, // #236
|
|
#195#173, // #237
|
|
#195#174, // #238
|
|
#195#175, // #239
|
|
#195#176, // #240
|
|
#195#177, // #241
|
|
#195#178, // #242
|
|
#195#179, // #243
|
|
#195#180, // #244
|
|
#195#181, // #245
|
|
#195#182, // #246
|
|
#195#183, // #247
|
|
#195#184, // #248
|
|
#195#185, // #249
|
|
#195#186, // #250
|
|
#195#187, // #251
|
|
#195#188, // #252
|
|
#195#189, // #253
|
|
#195#190, // #254
|
|
#195#191 // #255
|
|
);
|
|
|
|
ArrayISO_8859_15ToUTF8: TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
#194#128, // #128
|
|
#194#129, // #129
|
|
#194#130, // #130
|
|
#194#131, // #131
|
|
#194#132, // #132
|
|
#194#133, // #133
|
|
#194#134, // #134
|
|
#194#135, // #135
|
|
#194#136, // #136
|
|
#194#137, // #137
|
|
#194#138, // #138
|
|
#194#139, // #139
|
|
#194#140, // #140
|
|
#194#141, // #141
|
|
#194#142, // #142
|
|
#194#143, // #143
|
|
#194#144, // #144
|
|
#194#145, // #145
|
|
#194#146, // #146
|
|
#194#147, // #147
|
|
#194#148, // #148
|
|
#194#149, // #149
|
|
#194#150, // #150
|
|
#194#151, // #151
|
|
#194#152, // #152
|
|
#194#153, // #153
|
|
#194#154, // #154
|
|
#194#155, // #155
|
|
#194#156, // #156
|
|
#194#157, // #157
|
|
#194#158, // #158
|
|
#194#159, // #159
|
|
#194#160, // #160
|
|
#194#161, // #161
|
|
#194#162, // #162
|
|
#194#163, // #163
|
|
#226#130#172, // #164
|
|
#194#165, // #165
|
|
#197#160, // #166
|
|
#194#167, // #167
|
|
#197#161, // #168
|
|
#194#169, // #169
|
|
#194#170, // #170
|
|
#194#171, // #171
|
|
#194#172, // #172
|
|
#194#173, // #173
|
|
#194#174, // #174
|
|
#194#175, // #175
|
|
#194#176, // #176
|
|
#194#177, // #177
|
|
#194#178, // #178
|
|
#194#179, // #179
|
|
#197#189, // #180
|
|
#194#181, // #181
|
|
#194#182, // #182
|
|
#194#183, // #183
|
|
#197#190, // #184
|
|
#194#185, // #185
|
|
#194#186, // #186
|
|
#194#187, // #187
|
|
#197#146, // #188
|
|
#197#147, // #189
|
|
#197#184, // #190
|
|
#194#191, // #191
|
|
#195#128, // #192
|
|
#195#129, // #193
|
|
#195#130, // #194
|
|
#195#131, // #195
|
|
#195#132, // #196
|
|
#195#133, // #197
|
|
#195#134, // #198
|
|
#195#135, // #199
|
|
#195#136, // #200
|
|
#195#137, // #201
|
|
#195#138, // #202
|
|
#195#139, // #203
|
|
#195#140, // #204
|
|
#195#141, // #205
|
|
#195#142, // #206
|
|
#195#143, // #207
|
|
#195#144, // #208
|
|
#195#145, // #209
|
|
#195#146, // #210
|
|
#195#147, // #211
|
|
#195#148, // #212
|
|
#195#149, // #213
|
|
#195#150, // #214
|
|
#195#151, // #215
|
|
#195#152, // #216
|
|
#195#153, // #217
|
|
#195#154, // #218
|
|
#195#155, // #219
|
|
#195#156, // #220
|
|
#195#157, // #221
|
|
#195#158, // #222
|
|
#195#159, // #223
|
|
#195#160, // #224
|
|
#195#161, // #225
|
|
#195#162, // #226
|
|
#195#163, // #227
|
|
#195#164, // #228
|
|
#195#165, // #229
|
|
#195#166, // #230
|
|
#195#167, // #231
|
|
#195#168, // #232
|
|
#195#169, // #233
|
|
#195#170, // #234
|
|
#195#171, // #235
|
|
#195#172, // #236
|
|
#195#173, // #237
|
|
#195#174, // #238
|
|
#195#175, // #239
|
|
#195#176, // #240
|
|
#195#177, // #241
|
|
#195#178, // #242
|
|
#195#179, // #243
|
|
#195#180, // #244
|
|
#195#181, // #245
|
|
#195#182, // #246
|
|
#195#183, // #247
|
|
#195#184, // #248
|
|
#195#185, // #249
|
|
#195#186, // #250
|
|
#195#187, // #251
|
|
#195#188, // #252
|
|
#195#189, // #253
|
|
#195#190, // #254
|
|
#195#191 // #255
|
|
);
|
|
ArrayISO_8859_2ToUTF8: TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
#194#128, // #128
|
|
#194#129, // #129
|
|
#194#130, // #130
|
|
#194#131, // #131
|
|
#194#132, // #132
|
|
#194#133, // #133
|
|
#194#134, // #134
|
|
#194#135, // #135
|
|
#194#136, // #136
|
|
#194#137, // #137
|
|
#194#138, // #138
|
|
#194#139, // #139
|
|
#194#140, // #140
|
|
#194#141, // #141
|
|
#194#142, // #142
|
|
#194#143, // #143
|
|
#194#144, // #144
|
|
#194#145, // #145
|
|
#194#146, // #146
|
|
#194#147, // #147
|
|
#194#148, // #148
|
|
#194#149, // #149
|
|
#194#150, // #150
|
|
#194#151, // #151
|
|
#194#152, // #152
|
|
#194#153, // #153
|
|
#194#154, // #154
|
|
#194#155, // #155
|
|
#194#156, // #156
|
|
#194#157, // #157
|
|
#194#158, // #158
|
|
#194#159, // #159
|
|
#194#160, // #160
|
|
#196#132, // #161
|
|
#203#152, // #162
|
|
#197#129, // #163
|
|
#194#164, // #164
|
|
#196#189, // #165
|
|
#197#154, // #166
|
|
#194#167, // #167
|
|
#194#168, // #168
|
|
#197#160, // #169
|
|
#197#158, // #170
|
|
#197#164, // #171
|
|
#197#185, // #172
|
|
#194#173, // #173
|
|
#197#189, // #174
|
|
#197#187, // #175
|
|
#194#176, // #176
|
|
#196#133, // #177
|
|
#203#155, // #178
|
|
#197#130, // #179
|
|
#194#180, // #180
|
|
#196#190, // #181
|
|
#197#155, // #182
|
|
#203#135, // #183
|
|
#194#184, // #184
|
|
#197#161, // #185
|
|
#197#159, // #186
|
|
#197#165, // #187
|
|
#197#186, // #188
|
|
#203#157, // #189
|
|
#197#190, // #190
|
|
#197#188, // #191
|
|
#197#148, // #192
|
|
#195#129, // #193
|
|
#195#130, // #194
|
|
#196#130, // #195
|
|
#195#132, // #196
|
|
#196#185, // #197
|
|
#196#134, // #198
|
|
#195#135, // #199
|
|
#196#140, // #200
|
|
#195#137, // #201
|
|
#196#152, // #202
|
|
#195#139, // #203
|
|
#196#154, // #204
|
|
#195#141, // #205
|
|
#195#142, // #206
|
|
#196#142, // #207
|
|
#196#144, // #208
|
|
#197#131, // #209
|
|
#197#135, // #210
|
|
#195#147, // #211
|
|
#195#148, // #212
|
|
#197#144, // #213
|
|
#195#150, // #214
|
|
#195#151, // #215
|
|
#197#152, // #216
|
|
#197#174, // #217
|
|
#195#154, // #218
|
|
#197#176, // #219
|
|
#195#156, // #220
|
|
#195#157, // #221
|
|
#197#162, // #222
|
|
#195#159, // #223
|
|
#197#149, // #224
|
|
#195#161, // #225
|
|
#195#162, // #226
|
|
#196#131, // #227
|
|
#195#164, // #228
|
|
#196#186, // #229
|
|
#196#135, // #230
|
|
#195#167, // #231
|
|
#196#141, // #232
|
|
#195#169, // #233
|
|
#196#153, // #234
|
|
#195#171, // #235
|
|
#196#155, // #236
|
|
#195#173, // #237
|
|
#195#174, // #238
|
|
#196#143, // #239
|
|
#196#145, // #240
|
|
#197#132, // #241
|
|
#197#136, // #242
|
|
#195#179, // #243
|
|
#195#180, // #244
|
|
#197#145, // #245
|
|
#195#182, // #246
|
|
#195#183, // #247
|
|
#197#153, // #248
|
|
#197#175, // #249
|
|
#195#186, // #250
|
|
#197#177, // #251
|
|
#195#188, // #252
|
|
#195#189, // #253
|
|
#197#163, // #254
|
|
#203#153 // #255
|
|
);
|
|
|
|
|
|
ArrayCP1250ToUTF8: TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
#226#130#172, // #128
|
|
#194#129, // #129
|
|
#226#128#154, // #130
|
|
#194#131, // #131
|
|
#226#128#158, // #132
|
|
#226#128#166, // #133
|
|
#226#128#160, // #134
|
|
#226#128#161, // #135
|
|
#194#136, // #136
|
|
#226#128#176, // #137
|
|
#197#160, // #138
|
|
#226#128#185, // #139
|
|
#197#154, // #140
|
|
#197#164, // #141
|
|
#197#189, // #142
|
|
#197#185, // #143
|
|
#194#144, // #144
|
|
#226#128#152, // #145
|
|
#226#128#153, // #146
|
|
#226#128#156, // #147
|
|
#226#128#157, // #148
|
|
#226#128#162, // #149
|
|
#226#128#147, // #150
|
|
#226#128#148, // #151
|
|
#194#152, // #152
|
|
#226#132#162, // #153
|
|
#197#161, // #154
|
|
#226#128#186, // #155
|
|
#197#155, // #156
|
|
#197#165, // #157
|
|
#197#190, // #158
|
|
#197#186, // #159
|
|
#194#160, // #160
|
|
#203#135, // #161
|
|
#203#152, // #162
|
|
#197#129, // #163
|
|
#194#164, // #164
|
|
#196#132, // #165
|
|
#194#166, // #166
|
|
#194#167, // #167
|
|
#194#168, // #168
|
|
#194#169, // #169
|
|
#197#158, // #170
|
|
#194#171, // #171
|
|
#194#172, // #172
|
|
#194#173, // #173
|
|
#194#174, // #174
|
|
#197#187, // #175
|
|
#194#176, // #176
|
|
#194#177, // #177
|
|
#203#155, // #178
|
|
#197#130, // #179
|
|
#194#180, // #180
|
|
#194#181, // #181
|
|
#194#182, // #182
|
|
#194#183, // #183
|
|
#194#184, // #184
|
|
#196#133, // #185
|
|
#197#159, // #186
|
|
#194#187, // #187
|
|
#196#189, // #188
|
|
#203#157, // #189
|
|
#196#190, // #190
|
|
#197#188, // #191
|
|
#197#148, // #192
|
|
#195#129, // #193
|
|
#195#130, // #194
|
|
#196#130, // #195
|
|
#195#132, // #196
|
|
#196#185, // #197
|
|
#196#134, // #198
|
|
#195#135, // #199
|
|
#196#140, // #200
|
|
#195#137, // #201
|
|
#196#152, // #202
|
|
#195#139, // #203
|
|
#196#154, // #204
|
|
#195#141, // #205
|
|
#195#142, // #206
|
|
#196#142, // #207
|
|
#196#144, // #208
|
|
#197#131, // #209
|
|
#197#135, // #210
|
|
#195#147, // #211
|
|
#195#148, // #212
|
|
#197#144, // #213
|
|
#195#150, // #214
|
|
#195#151, // #215
|
|
#197#152, // #216
|
|
#197#174, // #217
|
|
#195#154, // #218
|
|
#197#176, // #219
|
|
#195#156, // #220
|
|
#195#157, // #221
|
|
#197#162, // #222
|
|
#195#159, // #223
|
|
#197#149, // #224
|
|
#195#161, // #225
|
|
#195#162, // #226
|
|
#196#131, // #227
|
|
#195#164, // #228
|
|
#196#186, // #229
|
|
#196#135, // #230
|
|
#195#167, // #231
|
|
#196#141, // #232
|
|
#195#169, // #233
|
|
#196#153, // #234
|
|
#195#171, // #235
|
|
#196#155, // #236
|
|
#195#173, // #237
|
|
#195#174, // #238
|
|
#196#143, // #239
|
|
#196#145, // #240
|
|
#197#132, // #241
|
|
#197#136, // #242
|
|
#195#179, // #243
|
|
#195#180, // #244
|
|
#197#145, // #245
|
|
#195#182, // #246
|
|
#195#183, // #247
|
|
#197#153, // #248
|
|
#197#175, // #249
|
|
#195#186, // #250
|
|
#197#177, // #251
|
|
#195#188, // #252
|
|
#195#189, // #253
|
|
#197#163, // #254
|
|
#203#153 // #255
|
|
);
|
|
|
|
ArrayCP1251ToUTF8: TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
#208#130, // #128
|
|
#208#131, // #129
|
|
#226#128#154, // #130
|
|
#209#147, // #131
|
|
#226#128#158, // #132
|
|
#226#128#166, // #133
|
|
#226#128#160, // #134
|
|
#226#128#161, // #135
|
|
#226#130#172, // #136
|
|
#226#128#176, // #137
|
|
#208#137, // #138
|
|
#226#128#185, // #139
|
|
#208#138, // #140
|
|
#208#140, // #141
|
|
#208#139, // #142
|
|
#208#143, // #143
|
|
#209#146, // #144
|
|
#226#128#152, // #145
|
|
#226#128#153, // #146
|
|
#226#128#156, // #147
|
|
#226#128#157, // #148
|
|
#226#128#162, // #149
|
|
#226#128#147, // #150
|
|
#226#128#148, // #151
|
|
#194#152, // #152
|
|
#226#132#162, // #153
|
|
#209#153, // #154
|
|
#226#128#186, // #155
|
|
#209#154, // #156
|
|
#209#156, // #157
|
|
#209#155, // #158
|
|
#209#159, // #159
|
|
#194#160, // #160
|
|
#208#142, // #161
|
|
#209#158, // #162
|
|
#208#136, // #163
|
|
#194#164, // #164
|
|
#210#144, // #165
|
|
#194#166, // #166
|
|
#194#167, // #167
|
|
#208#129, // #168
|
|
#194#169, // #169
|
|
#208#132, // #170
|
|
#194#171, // #171
|
|
#194#172, // #172
|
|
#194#173, // #173
|
|
#194#174, // #174
|
|
#208#135, // #175
|
|
#194#176, // #176
|
|
#194#177, // #177
|
|
#208#134, // #178
|
|
#209#150, // #179
|
|
#210#145, // #180
|
|
#194#181, // #181
|
|
#194#182, // #182
|
|
#194#183, // #183
|
|
#209#145, // #184
|
|
#226#132#150, // #185
|
|
#209#148, // #186
|
|
#194#187, // #187
|
|
#209#152, // #188
|
|
#208#133, // #189
|
|
#209#149, // #190
|
|
#209#151, // #191
|
|
#208#144, // #192
|
|
#208#145, // #193
|
|
#208#146, // #194
|
|
#208#147, // #195
|
|
#208#148, // #196
|
|
#208#149, // #197
|
|
#208#150, // #198
|
|
#208#151, // #199
|
|
#208#152, // #200
|
|
#208#153, // #201
|
|
#208#154, // #202
|
|
#208#155, // #203
|
|
#208#156, // #204
|
|
#208#157, // #205
|
|
#208#158, // #206
|
|
#208#159, // #207
|
|
#208#160, // #208
|
|
#208#161, // #209
|
|
#208#162, // #210
|
|
#208#163, // #211
|
|
#208#164, // #212
|
|
#208#165, // #213
|
|
#208#166, // #214
|
|
#208#167, // #215
|
|
#208#168, // #216
|
|
#208#169, // #217
|
|
#208#170, // #218
|
|
#208#171, // #219
|
|
#208#172, // #220
|
|
#208#173, // #221
|
|
#208#174, // #222
|
|
#208#175, // #223
|
|
#208#176, // #224
|
|
#208#177, // #225
|
|
#208#178, // #226
|
|
#208#179, // #227
|
|
#208#180, // #228
|
|
#208#181, // #229
|
|
#208#182, // #230
|
|
#208#183, // #231
|
|
#208#184, // #232
|
|
#208#185, // #233
|
|
#208#186, // #234
|
|
#208#187, // #235
|
|
#208#188, // #236
|
|
#208#189, // #237
|
|
#208#190, // #238
|
|
#208#191, // #239
|
|
#209#128, // #240
|
|
#209#129, // #241
|
|
#209#130, // #242
|
|
#209#131, // #243
|
|
#209#132, // #244
|
|
#209#133, // #245
|
|
#209#134, // #246
|
|
#209#135, // #247
|
|
#209#136, // #248
|
|
#209#137, // #249
|
|
#209#138, // #250
|
|
#209#139, // #251
|
|
#209#140, // #252
|
|
#209#141, // #253
|
|
#209#142, // #254
|
|
#209#143 // #255
|
|
);
|
|
|
|
ArrayCP1252ToUTF8: TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
#226#130#172, // #128
|
|
#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
|
|
#203#134, // #136
|
|
#226#128#176, // #137
|
|
#197#160, // #138
|
|
#226#128#185, // #139
|
|
#197#146, // #140
|
|
#194#141, // #141
|
|
#197#189, // #142
|
|
#194#143, // #143
|
|
#194#144, // #144
|
|
#226#128#152, // #145
|
|
#226#128#153, // #146
|
|
#226#128#156, // #147
|
|
#226#128#157, // #148
|
|
#226#128#162, // #149
|
|
#226#128#147, // #150
|
|
#226#128#148, // #151
|
|
#203#156, // #152
|
|
#226#132#162, // #153
|
|
#197#161, // #154
|
|
#226#128#186, // #155
|
|
#197#147, // #156
|
|
#194#157, // #157
|
|
#197#190, // #158
|
|
#197#184, // #159
|
|
#194#160, // #160
|
|
#194#161, // #161
|
|
#194#162, // #162
|
|
#194#163, // #163
|
|
#194#164, // #164
|
|
#194#165, // #165
|
|
#194#166, // #166
|
|
#194#167, // #167
|
|
#194#168, // #168
|
|
#194#169, // #169
|
|
#194#170, // #170
|
|
#194#171, // #171
|
|
#194#172, // #172
|
|
#194#173, // #173
|
|
#194#174, // #174
|
|
#194#175, // #175
|
|
#194#176, // #176
|
|
#194#177, // #177
|
|
#194#178, // #178
|
|
#194#179, // #179
|
|
#194#180, // #180
|
|
#194#181, // #181
|
|
#194#182, // #182
|
|
#194#183, // #183
|
|
#194#184, // #184
|
|
#194#185, // #185
|
|
#194#186, // #186
|
|
#194#187, // #187
|
|
#194#188, // #188
|
|
#194#189, // #189
|
|
#194#190, // #190
|
|
#194#191, // #191
|
|
#195#128, // #192
|
|
#195#129, // #193
|
|
#195#130, // #194
|
|
#195#131, // #195
|
|
#195#132, // #196
|
|
#195#133, // #197
|
|
#195#134, // #198
|
|
#195#135, // #199
|
|
#195#136, // #200
|
|
#195#137, // #201
|
|
#195#138, // #202
|
|
#195#139, // #203
|
|
#195#140, // #204
|
|
#195#141, // #205
|
|
#195#142, // #206
|
|
#195#143, // #207
|
|
#195#144, // #208
|
|
#195#145, // #209
|
|
#195#146, // #210
|
|
#195#147, // #211
|
|
#195#148, // #212
|
|
#195#149, // #213
|
|
#195#150, // #214
|
|
#195#151, // #215
|
|
#195#152, // #216
|
|
#195#153, // #217
|
|
#195#154, // #218
|
|
#195#155, // #219
|
|
#195#156, // #220
|
|
#195#157, // #221
|
|
#195#158, // #222
|
|
#195#159, // #223
|
|
#195#160, // #224
|
|
#195#161, // #225
|
|
#195#162, // #226
|
|
#195#163, // #227
|
|
#195#164, // #228
|
|
#195#165, // #229
|
|
#195#166, // #230
|
|
#195#167, // #231
|
|
#195#168, // #232
|
|
#195#169, // #233
|
|
#195#170, // #234
|
|
#195#171, // #235
|
|
#195#172, // #236
|
|
#195#173, // #237
|
|
#195#174, // #238
|
|
#195#175, // #239
|
|
#195#176, // #240
|
|
#195#177, // #241
|
|
#195#178, // #242
|
|
#195#179, // #243
|
|
#195#180, // #244
|
|
#195#181, // #245
|
|
#195#182, // #246
|
|
#195#183, // #247
|
|
#195#184, // #248
|
|
#195#185, // #249
|
|
#195#186, // #250
|
|
#195#187, // #251
|
|
#195#188, // #252
|
|
#195#189, // #253
|
|
#195#190, // #254
|
|
#195#191 // #255
|
|
);
|
|
|
|
ArrayCP1253ToUTF8: TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
#226#130#172, // #128
|
|
#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
|
|
#194#136, // #136
|
|
#226#128#176, // #137
|
|
#194#138, // #138
|
|
#226#128#185, // #139
|
|
#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
|
|
#226#128#157, // #148
|
|
#226#128#162, // #149
|
|
#226#128#147, // #150
|
|
#226#128#148, // #151
|
|
#194#152, // #152
|
|
#226#132#162, // #153
|
|
#194#154, // #154
|
|
#226#128#186, // #155
|
|
#194#156, // #156
|
|
#194#157, // #157
|
|
#194#158, // #158
|
|
#194#159, // #159
|
|
#194#160, // #160
|
|
#206#133, // #161
|
|
#206#134, // #162
|
|
#194#163, // #163
|
|
#194#164, // #164
|
|
#194#165, // #165
|
|
#194#166, // #166
|
|
#194#167, // #167
|
|
#194#168, // #168
|
|
#194#169, // #169
|
|
#194#170, // #170
|
|
#194#171, // #171
|
|
#194#172, // #172
|
|
#194#173, // #173
|
|
#194#174, // #174
|
|
#226#128#149, // #175
|
|
#194#176, // #176
|
|
#194#177, // #177
|
|
#194#178, // #178
|
|
#194#179, // #179
|
|
#206#132, // #180
|
|
#194#181, // #181
|
|
#194#182, // #182
|
|
#194#183, // #183
|
|
#206#136, // #184
|
|
#206#137, // #185
|
|
#206#138, // #186
|
|
#194#187, // #187
|
|
#206#140, // #188
|
|
#194#189, // #189
|
|
#206#142, // #190
|
|
#206#143, // #191
|
|
#206#144, // #192
|
|
#206#145, // #193
|
|
#206#146, // #194
|
|
#206#147, // #195
|
|
#206#148, // #196
|
|
#206#149, // #197
|
|
#206#150, // #198
|
|
#206#151, // #199
|
|
#206#152, // #200
|
|
#206#153, // #201
|
|
#206#154, // #202
|
|
#206#155, // #203
|
|
#206#156, // #204
|
|
#206#157, // #205
|
|
#206#158, // #206
|
|
#206#159, // #207
|
|
#206#160, // #208
|
|
#206#161, // #209
|
|
#206#162, // #210
|
|
#206#163, // #211
|
|
#206#164, // #212
|
|
#206#165, // #213
|
|
#206#166, // #214
|
|
#206#167, // #215
|
|
#206#168, // #216
|
|
#206#169, // #217
|
|
#206#170, // #218
|
|
#206#171, // #219
|
|
#206#172, // #220
|
|
#206#173, // #221
|
|
#206#174, // #222
|
|
#206#175, // #223
|
|
#206#176, // #224
|
|
#206#177, // #225
|
|
#206#178, // #226
|
|
#206#179, // #227
|
|
#206#180, // #228
|
|
#206#181, // #229
|
|
#206#182, // #230
|
|
#206#183, // #231
|
|
#206#184, // #232
|
|
#206#185, // #233
|
|
#206#186, // #234
|
|
#206#187, // #235
|
|
#206#188, // #236
|
|
#206#189, // #237
|
|
#206#190, // #238
|
|
#206#191, // #239
|
|
#207#128, // #240
|
|
#207#129, // #241
|
|
#207#130, // #242
|
|
#207#131, // #243
|
|
#207#132, // #244
|
|
#207#133, // #245
|
|
#207#134, // #246
|
|
#207#135, // #247
|
|
#207#136, // #248
|
|
#207#137, // #249
|
|
#207#138, // #250
|
|
#207#139, // #251
|
|
#207#140, // #252
|
|
#207#141, // #253
|
|
#207#142, // #254
|
|
#207#143 // #255
|
|
);
|
|
|
|
ArrayCP1254ToUTF8: TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
#226#130#172, // #128
|
|
#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
|
|
#203#134, // #136
|
|
#226#128#176, // #137
|
|
#197#160, // #138
|
|
#226#128#185, // #139
|
|
#197#146, // #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
|
|
#226#128#157, // #148
|
|
#226#128#162, // #149
|
|
#226#128#147, // #150
|
|
#226#128#148, // #151
|
|
#203#156, // #152
|
|
#226#132#162, // #153
|
|
#197#161, // #154
|
|
#226#128#186, // #155
|
|
#197#147, // #156
|
|
#194#157, // #157
|
|
#194#158, // #158
|
|
#197#184, // #159
|
|
#194#160, // #160
|
|
#194#161, // #161
|
|
#194#162, // #162
|
|
#194#163, // #163
|
|
#194#164, // #164
|
|
#194#165, // #165
|
|
#194#166, // #166
|
|
#194#167, // #167
|
|
#194#168, // #168
|
|
#194#169, // #169
|
|
#194#170, // #170
|
|
#194#171, // #171
|
|
#194#172, // #172
|
|
#194#173, // #173
|
|
#194#174, // #174
|
|
#194#175, // #175
|
|
#194#176, // #176
|
|
#194#177, // #177
|
|
#194#178, // #178
|
|
#194#179, // #179
|
|
#194#180, // #180
|
|
#194#181, // #181
|
|
#194#182, // #182
|
|
#194#183, // #183
|
|
#194#184, // #184
|
|
#194#185, // #185
|
|
#194#186, // #186
|
|
#194#187, // #187
|
|
#194#188, // #188
|
|
#194#189, // #189
|
|
#194#190, // #190
|
|
#194#191, // #191
|
|
#195#128, // #192
|
|
#195#129, // #193
|
|
#195#130, // #194
|
|
#195#131, // #195
|
|
#195#132, // #196
|
|
#195#133, // #197
|
|
#195#134, // #198
|
|
#195#135, // #199
|
|
#195#136, // #200
|
|
#195#137, // #201
|
|
#195#138, // #202
|
|
#195#139, // #203
|
|
#195#140, // #204
|
|
#195#141, // #205
|
|
#195#142, // #206
|
|
#195#143, // #207
|
|
#196#158, // #208
|
|
#195#145, // #209
|
|
#195#146, // #210
|
|
#195#147, // #211
|
|
#195#148, // #212
|
|
#195#149, // #213
|
|
#195#150, // #214
|
|
#195#151, // #215
|
|
#195#152, // #216
|
|
#195#153, // #217
|
|
#195#154, // #218
|
|
#195#155, // #219
|
|
#195#156, // #220
|
|
#196#176, // #221
|
|
#197#158, // #222
|
|
#195#159, // #223
|
|
#195#160, // #224
|
|
#195#161, // #225
|
|
#195#162, // #226
|
|
#195#163, // #227
|
|
#195#164, // #228
|
|
#195#165, // #229
|
|
#195#166, // #230
|
|
#195#167, // #231
|
|
#195#168, // #232
|
|
#195#169, // #233
|
|
#195#170, // #234
|
|
#195#171, // #235
|
|
#195#172, // #236
|
|
#195#173, // #237
|
|
#195#174, // #238
|
|
#195#175, // #239
|
|
#196#159, // #240
|
|
#195#177, // #241
|
|
#195#178, // #242
|
|
#195#179, // #243
|
|
#195#180, // #244
|
|
#195#181, // #245
|
|
#195#182, // #246
|
|
#195#183, // #247
|
|
#195#184, // #248
|
|
#195#185, // #249
|
|
#195#186, // #250
|
|
#195#187, // #251
|
|
#195#188, // #252
|
|
#196#177, // #253
|
|
#197#159, // #254
|
|
#195#191 // #255
|
|
);
|
|
|
|
ArrayCP1255ToUTF8: TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
#226#130#172, // #128
|
|
#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
|
|
#203#134, // #136
|
|
#226#128#176, // #137
|
|
#194#138, // #138
|
|
#226#128#185, // #139
|
|
#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
|
|
#226#128#157, // #148
|
|
#226#128#162, // #149
|
|
#226#128#147, // #150
|
|
#226#128#148, // #151
|
|
#203#156, // #152
|
|
#226#132#162, // #153
|
|
#194#154, // #154
|
|
#226#128#186, // #155
|
|
#194#156, // #156
|
|
#194#157, // #157
|
|
#194#158, // #158
|
|
#194#159, // #159
|
|
#194#160, // #160
|
|
#194#161, // #161
|
|
#194#162, // #162
|
|
#194#163, // #163
|
|
#226#130#170, // #164
|
|
#194#165, // #165
|
|
#194#166, // #166
|
|
#194#167, // #167
|
|
#194#168, // #168
|
|
#194#169, // #169
|
|
#195#151, // #170
|
|
#194#171, // #171
|
|
#194#172, // #172
|
|
#194#173, // #173
|
|
#194#174, // #174
|
|
#194#175, // #175
|
|
#194#176, // #176
|
|
#194#177, // #177
|
|
#194#178, // #178
|
|
#194#179, // #179
|
|
#194#180, // #180
|
|
#194#181, // #181
|
|
#194#182, // #182
|
|
#194#183, // #183
|
|
#194#184, // #184
|
|
#194#185, // #185
|
|
#195#183, // #186
|
|
#194#187, // #187
|
|
#194#188, // #188
|
|
#194#189, // #189
|
|
#194#190, // #190
|
|
#194#191, // #191
|
|
#214#176, // #192
|
|
#214#177, // #193
|
|
#214#178, // #194
|
|
#214#179, // #195
|
|
#214#180, // #196
|
|
#214#181, // #197
|
|
#214#182, // #198
|
|
#214#183, // #199
|
|
#214#184, // #200
|
|
#214#185, // #201
|
|
#214#186, // #202
|
|
#214#187, // #203
|
|
#214#188, // #204
|
|
#214#189, // #205
|
|
#214#190, // #206
|
|
#214#191, // #207
|
|
#215#128, // #208
|
|
#215#129, // #209
|
|
#215#130, // #210
|
|
#215#131, // #211
|
|
#215#176, // #212
|
|
#215#177, // #213
|
|
#215#178, // #214
|
|
#215#179, // #215
|
|
#215#180, // #216
|
|
#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
|
|
#215#147, // #227
|
|
#215#148, // #228
|
|
#215#149, // #229
|
|
#215#150, // #230
|
|
#215#151, // #231
|
|
#215#152, // #232
|
|
#215#153, // #233
|
|
#215#154, // #234
|
|
#215#155, // #235
|
|
#215#156, // #236
|
|
#215#157, // #237
|
|
#215#158, // #238
|
|
#215#159, // #239
|
|
#215#160, // #240
|
|
#215#161, // #241
|
|
#215#162, // #242
|
|
#215#163, // #243
|
|
#215#164, // #244
|
|
#215#165, // #245
|
|
#215#166, // #246
|
|
#215#167, // #247
|
|
#215#168, // #248
|
|
#215#169, // #249
|
|
#215#170, // #250
|
|
#215#171, // #251
|
|
#215#172, // #252
|
|
#226#128#142, // #253
|
|
#226#128#143, // #254
|
|
#215#173 // #255
|
|
);
|
|
|
|
ArrayCP1256ToUTF8: TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
#226#130#172, // #128
|
|
#217#190, // #129
|
|
#226#128#154, // #130
|
|
#198#146, // #131
|
|
#226#128#158, // #132
|
|
#226#128#166, // #133
|
|
#226#128#160, // #134
|
|
#226#128#161, // #135
|
|
#203#134, // #136
|
|
#226#128#176, // #137
|
|
#217#185, // #138
|
|
#226#128#185, // #139
|
|
#197#146, // #140
|
|
#218#134, // #141
|
|
#218#152, // #142
|
|
#218#136, // #143
|
|
#218#175, // #144
|
|
#226#128#152, // #145
|
|
#226#128#153, // #146
|
|
#226#128#156, // #147
|
|
#226#128#157, // #148
|
|
#226#128#162, // #149
|
|
#226#128#147, // #150
|
|
#226#128#148, // #151
|
|
#218#169, // #152
|
|
#226#132#162, // #153
|
|
#218#145, // #154
|
|
#226#128#186, // #155
|
|
#197#147, // #156
|
|
#226#128#140, // #157
|
|
#226#128#141, // #158
|
|
#218#186, // #159
|
|
#194#160, // #160
|
|
#216#140, // #161
|
|
#194#162, // #162
|
|
#194#163, // #163
|
|
#194#164, // #164
|
|
#194#165, // #165
|
|
#194#166, // #166
|
|
#194#167, // #167
|
|
#194#168, // #168
|
|
#194#169, // #169
|
|
#218#190, // #170
|
|
#194#171, // #171
|
|
#194#172, // #172
|
|
#194#173, // #173
|
|
#194#174, // #174
|
|
#194#175, // #175
|
|
#194#176, // #176
|
|
#194#177, // #177
|
|
#194#178, // #178
|
|
#194#179, // #179
|
|
#194#180, // #180
|
|
#194#181, // #181
|
|
#194#182, // #182
|
|
#194#183, // #183
|
|
#194#184, // #184
|
|
#194#185, // #185
|
|
#216#155, // #186
|
|
#194#187, // #187
|
|
#194#188, // #188
|
|
#194#189, // #189
|
|
#194#190, // #190
|
|
#216#159, // #191
|
|
#219#129, // #192
|
|
#216#161, // #193
|
|
#216#162, // #194
|
|
#216#163, // #195
|
|
#216#164, // #196
|
|
#216#165, // #197
|
|
#216#166, // #198
|
|
#216#167, // #199
|
|
#216#168, // #200
|
|
#216#169, // #201
|
|
#216#170, // #202
|
|
#216#171, // #203
|
|
#216#172, // #204
|
|
#216#173, // #205
|
|
#216#174, // #206
|
|
#216#175, // #207
|
|
#216#176, // #208
|
|
#216#177, // #209
|
|
#216#178, // #210
|
|
#216#179, // #211
|
|
#216#180, // #212
|
|
#216#181, // #213
|
|
#216#182, // #214
|
|
#195#151, // #215
|
|
#216#183, // #216
|
|
#216#184, // #217
|
|
#216#185, // #218
|
|
#216#186, // #219
|
|
#217#128, // #220
|
|
#217#129, // #221
|
|
#217#130, // #222
|
|
#217#131, // #223
|
|
#195#160, // #224
|
|
#217#132, // #225
|
|
#195#162, // #226
|
|
#217#133, // #227
|
|
#217#134, // #228
|
|
#217#135, // #229
|
|
#217#136, // #230
|
|
#195#167, // #231
|
|
#195#168, // #232
|
|
#195#169, // #233
|
|
#195#170, // #234
|
|
#195#171, // #235
|
|
#217#137, // #236
|
|
#217#138, // #237
|
|
#195#174, // #238
|
|
#195#175, // #239
|
|
#217#139, // #240
|
|
#217#140, // #241
|
|
#217#141, // #242
|
|
#217#142, // #243
|
|
#195#180, // #244
|
|
#217#143, // #245
|
|
#217#144, // #246
|
|
#195#183, // #247
|
|
#217#145, // #248
|
|
#195#185, // #249
|
|
#217#146, // #250
|
|
#195#187, // #251
|
|
#195#188, // #252
|
|
#226#128#142, // #253
|
|
#226#128#143, // #254
|
|
#219#146 // #255
|
|
);
|
|
|
|
ArrayCP1257ToUTF8: TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
#226#130#172, // #128
|
|
#194#129, // #129
|
|
#226#128#154, // #130
|
|
#194#131, // #131
|
|
#226#128#158, // #132
|
|
#226#128#166, // #133
|
|
#226#128#160, // #134
|
|
#226#128#161, // #135
|
|
#194#136, // #136
|
|
#226#128#176, // #137
|
|
#194#138, // #138
|
|
#226#128#185, // #139
|
|
#194#140, // #140
|
|
#194#168, // #141
|
|
#203#135, // #142
|
|
#194#184, // #143
|
|
#194#144, // #144
|
|
#226#128#152, // #145
|
|
#226#128#153, // #146
|
|
#226#128#156, // #147
|
|
#226#128#157, // #148
|
|
#226#128#162, // #149
|
|
#226#128#147, // #150
|
|
#226#128#148, // #151
|
|
#194#152, // #152
|
|
#226#132#162, // #153
|
|
#194#154, // #154
|
|
#226#128#186, // #155
|
|
#194#156, // #156
|
|
#194#175, // #157
|
|
#203#155, // #158
|
|
#194#159, // #159
|
|
#194#160, // #160
|
|
#194#161, // #161
|
|
#194#162, // #162
|
|
#194#163, // #163
|
|
#194#164, // #164
|
|
#194#165, // #165
|
|
#194#166, // #166
|
|
#194#167, // #167
|
|
#195#152, // #168
|
|
#194#169, // #169
|
|
#197#150, // #170
|
|
#194#171, // #171
|
|
#194#172, // #172
|
|
#194#173, // #173
|
|
#194#174, // #174
|
|
#195#134, // #175
|
|
#194#176, // #176
|
|
#194#177, // #177
|
|
#194#178, // #178
|
|
#194#179, // #179
|
|
#194#180, // #180
|
|
#194#181, // #181
|
|
#194#182, // #182
|
|
#194#183, // #183
|
|
#195#184, // #184
|
|
#194#185, // #185
|
|
#197#151, // #186
|
|
#194#187, // #187
|
|
#194#188, // #188
|
|
#194#189, // #189
|
|
#194#190, // #190
|
|
#195#166, // #191
|
|
#196#132, // #192
|
|
#196#174, // #193
|
|
#196#128, // #194
|
|
#196#134, // #195
|
|
#195#132, // #196
|
|
#195#133, // #197
|
|
#196#152, // #198
|
|
#196#146, // #199
|
|
#196#140, // #200
|
|
#195#137, // #201
|
|
#197#185, // #202
|
|
#196#150, // #203
|
|
#196#162, // #204
|
|
#196#182, // #205
|
|
#196#170, // #206
|
|
#196#187, // #207
|
|
#197#160, // #208
|
|
#197#131, // #209
|
|
#197#133, // #210
|
|
#195#147, // #211
|
|
#197#140, // #212
|
|
#195#149, // #213
|
|
#195#150, // #214
|
|
#195#151, // #215
|
|
#197#178, // #216
|
|
#197#129, // #217
|
|
#197#154, // #218
|
|
#197#170, // #219
|
|
#195#156, // #220
|
|
#197#187, // #221
|
|
#197#189, // #222
|
|
#195#159, // #223
|
|
#196#133, // #224
|
|
#196#175, // #225
|
|
#196#129, // #226
|
|
#196#135, // #227
|
|
#195#164, // #228
|
|
#195#165, // #229
|
|
#196#153, // #230
|
|
#196#147, // #231
|
|
#196#141, // #232
|
|
#195#169, // #233
|
|
#197#186, // #234
|
|
#196#151, // #235
|
|
#196#163, // #236
|
|
#196#183, // #237
|
|
#196#171, // #238
|
|
#196#188, // #239
|
|
#197#161, // #240
|
|
#197#132, // #241
|
|
#197#134, // #242
|
|
#195#179, // #243
|
|
#197#141, // #244
|
|
#195#181, // #245
|
|
#195#182, // #246
|
|
#195#183, // #247
|
|
#197#179, // #248
|
|
#197#130, // #249
|
|
#197#155, // #250
|
|
#197#171, // #251
|
|
#195#188, // #252
|
|
#197#188, // #253
|
|
#197#190, // #254
|
|
#203#153 // #255
|
|
);
|
|
|
|
ArrayCP1258ToUTF8: TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
#226#130#172, // #128
|
|
#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
|
|
#203#134, // #136
|
|
#226#128#176, // #137
|
|
#194#138, // #138
|
|
#226#128#185, // #139
|
|
#197#146, // #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
|
|
#226#128#157, // #148
|
|
#226#128#162, // #149
|
|
#226#128#147, // #150
|
|
#226#128#148, // #151
|
|
#203#156, // #152
|
|
#226#132#162, // #153
|
|
#194#154, // #154
|
|
#226#128#186, // #155
|
|
#197#147, // #156
|
|
#194#157, // #157
|
|
#194#158, // #158
|
|
#197#184, // #159
|
|
#194#160, // #160
|
|
#194#161, // #161
|
|
#194#162, // #162
|
|
#194#163, // #163
|
|
#194#164, // #164
|
|
#194#165, // #165
|
|
#194#166, // #166
|
|
#194#167, // #167
|
|
#194#168, // #168
|
|
#194#169, // #169
|
|
#194#170, // #170
|
|
#194#171, // #171
|
|
#194#172, // #172
|
|
#194#173, // #173
|
|
#194#174, // #174
|
|
#194#175, // #175
|
|
#194#176, // #176
|
|
#194#177, // #177
|
|
#194#178, // #178
|
|
#194#179, // #179
|
|
#194#180, // #180
|
|
#194#181, // #181
|
|
#194#182, // #182
|
|
#194#183, // #183
|
|
#194#184, // #184
|
|
#194#185, // #185
|
|
#194#186, // #186
|
|
#194#187, // #187
|
|
#194#188, // #188
|
|
#194#189, // #189
|
|
#194#190, // #190
|
|
#194#191, // #191
|
|
#195#128, // #192
|
|
#195#129, // #193
|
|
#195#130, // #194
|
|
#196#130, // #195
|
|
#195#132, // #196
|
|
#195#133, // #197
|
|
#195#134, // #198
|
|
#195#135, // #199
|
|
#195#136, // #200
|
|
#195#137, // #201
|
|
#195#138, // #202
|
|
#195#139, // #203
|
|
#204#128, // #204
|
|
#195#141, // #205
|
|
#195#142, // #206
|
|
#195#143, // #207
|
|
#196#144, // #208
|
|
#195#145, // #209
|
|
#204#137, // #210
|
|
#195#147, // #211
|
|
#195#148, // #212
|
|
#198#160, // #213
|
|
#195#150, // #214
|
|
#195#151, // #215
|
|
#195#152, // #216
|
|
#195#153, // #217
|
|
#195#154, // #218
|
|
#195#155, // #219
|
|
#195#156, // #220
|
|
#198#175, // #221
|
|
#204#131, // #222
|
|
#195#159, // #223
|
|
#195#160, // #224
|
|
#195#161, // #225
|
|
#195#162, // #226
|
|
#196#131, // #227
|
|
#195#164, // #228
|
|
#195#165, // #229
|
|
#195#166, // #230
|
|
#195#167, // #231
|
|
#195#168, // #232
|
|
#195#169, // #233
|
|
#195#170, // #234
|
|
#195#171, // #235
|
|
#204#129, // #236
|
|
#195#173, // #237
|
|
#195#174, // #238
|
|
#195#175, // #239
|
|
#196#145, // #240
|
|
#195#177, // #241
|
|
#204#163, // #242
|
|
#195#179, // #243
|
|
#195#180, // #244
|
|
#198#161, // #245
|
|
#195#182, // #246
|
|
#195#183, // #247
|
|
#195#184, // #248
|
|
#195#185, // #249
|
|
#195#186, // #250
|
|
#195#187, // #251
|
|
#195#188, // #252
|
|
#198#176, // #253
|
|
#226#130#171, // #254
|
|
#195#191 // #255
|
|
);
|
|
|
|
ArrayCP437ToUTF8 : TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
#195#135, // #128
|
|
#195#188, // #129
|
|
#195#169, // #130
|
|
#195#162, // #131
|
|
#195#164, // #132
|
|
#195#160, // #133
|
|
#195#165, // #134
|
|
#195#167, // #135
|
|
#195#170, // #136
|
|
#195#171, // #137
|
|
#195#168, // #138
|
|
#195#175, // #139
|
|
#195#174, // #140
|
|
#195#172, // #141
|
|
#195#132, // #142
|
|
#195#133, // #143
|
|
#195#137, // #144
|
|
#195#166, // #145
|
|
#195#134, // #146
|
|
#195#180, // #147
|
|
#195#182, // #148
|
|
#195#178, // #149
|
|
#195#187, // #150
|
|
#195#185, // #151
|
|
#195#191, // #152
|
|
#195#150, // #153
|
|
#195#156, // #154
|
|
#194#162, // #155
|
|
#194#163, // #156
|
|
#194#165, // #157
|
|
#226#130#167, // #158
|
|
#198#146, // #159
|
|
#195#161, // #160
|
|
#195#173, // #161
|
|
#195#179, // #162
|
|
#195#186, // #163
|
|
#195#177, // #164
|
|
#195#145, // #165
|
|
#194#170, // #166
|
|
#194#186, // #167
|
|
#194#191, // #168
|
|
#226#140#144, // #169
|
|
#194#172, // #170
|
|
#194#189, // #171
|
|
#194#188, // #172
|
|
#194#161, // #173
|
|
#194#171, // #174
|
|
#194#187, // #175
|
|
#226#150#145, // #176
|
|
#226#150#146, // #177
|
|
#226#150#147, // #178
|
|
#226#148#130, // #179
|
|
#226#148#164, // #180
|
|
#226#149#161, // #181
|
|
#226#149#162, // #182
|
|
#226#149#150, // #183
|
|
#226#149#149, // #184
|
|
#226#149#163, // #185
|
|
#226#149#145, // #186
|
|
#226#149#151, // #187
|
|
#226#149#157, // #188
|
|
#226#149#156, // #189
|
|
#226#149#155, // #190
|
|
#226#148#144, // #191
|
|
#226#148#148, // #192
|
|
#226#148#180, // #193
|
|
#226#148#172, // #194
|
|
#226#148#156, // #195
|
|
#226#148#128, // #196
|
|
#226#148#188, // #197
|
|
#226#149#158, // #198
|
|
#226#149#159, // #199
|
|
#226#149#154, // #200
|
|
#226#149#148, // #201
|
|
#226#149#169, // #202
|
|
#226#149#166, // #203
|
|
#226#149#160, // #204
|
|
#226#149#144, // #205
|
|
#226#149#172, // #206
|
|
#226#149#167, // #207
|
|
#226#149#168, // #208
|
|
#226#149#164, // #209
|
|
#226#149#165, // #210
|
|
#226#149#153, // #211
|
|
#226#149#152, // #212
|
|
#226#149#146, // #213
|
|
#226#149#147, // #214
|
|
#226#149#171, // #215
|
|
#226#149#170, // #216
|
|
#226#148#152, // #217
|
|
#226#148#140, // #218
|
|
#226#150#136, // #219
|
|
#226#150#132, // #220
|
|
#226#150#140, // #221
|
|
#226#150#144, // #222
|
|
#226#150#128, // #223
|
|
#206#177, // #224
|
|
#195#159, // #225
|
|
#206#147, // #226
|
|
#207#128, // #227
|
|
#206#163, // #228
|
|
#207#131, // #229
|
|
#194#181, // #230
|
|
#207#132, // #231
|
|
#206#166, // #232
|
|
#206#152, // #233
|
|
#206#169, // #234
|
|
#206#180, // #235
|
|
#226#136#158, // #236
|
|
#207#134, // #237
|
|
#206#181, // #238
|
|
#226#136#169, // #239
|
|
#226#137#161, // #240
|
|
#194#177, // #241
|
|
#226#137#165, // #242
|
|
#226#137#164, // #243
|
|
#226#140#160, // #244
|
|
#226#140#161, // #245
|
|
#195#183, // #246
|
|
#226#137#136, // #247
|
|
#194#176, // #248
|
|
#226#136#153, // #249
|
|
#194#183, // #250
|
|
#226#136#154, // #251
|
|
#226#129#191, // #252
|
|
#194#178, // #253
|
|
#226#150#160, // #254
|
|
#194#160 // #255
|
|
);
|
|
|
|
ArrayCP850ToUTF8 : TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
#195#135, // #128
|
|
#195#188, // #129
|
|
#195#169, // #130
|
|
#195#162, // #131
|
|
#195#164, // #132
|
|
#195#160, // #133
|
|
#195#165, // #134
|
|
#195#167, // #135
|
|
#195#170, // #136
|
|
#195#171, // #137
|
|
#195#168, // #138
|
|
#195#175, // #139
|
|
#195#174, // #140
|
|
#195#172, // #141
|
|
#195#132, // #142
|
|
#195#133, // #143
|
|
#195#137, // #144
|
|
#195#166, // #145
|
|
#195#134, // #146
|
|
#195#180, // #147
|
|
#195#182, // #148
|
|
#195#178, // #149
|
|
#195#187, // #150
|
|
#195#185, // #151
|
|
#195#191, // #152
|
|
#195#150, // #153
|
|
#195#156, // #154
|
|
#195#184, // #155
|
|
#194#163, // #156
|
|
#195#152, // #157
|
|
#195#151, // #158
|
|
#198#146, // #159
|
|
#195#161, // #160
|
|
#195#173, // #161
|
|
#195#179, // #162
|
|
#195#186, // #163
|
|
#195#177, // #164
|
|
#195#145, // #165
|
|
#194#170, // #166
|
|
#194#186, // #167
|
|
#194#191, // #168
|
|
#194#174, // #169
|
|
#194#172, // #170
|
|
#194#189, // #171
|
|
#194#188, // #172
|
|
#194#161, // #173
|
|
#194#171, // #174
|
|
#194#187, // #175
|
|
#226#150#145, // #176
|
|
#226#150#146, // #177
|
|
#226#150#147, // #178
|
|
#226#148#130, // #179
|
|
#226#148#164, // #180
|
|
#195#129, // #181
|
|
#195#130, // #182
|
|
#195#128, // #183
|
|
#194#169, // #184
|
|
#226#149#163, // #185
|
|
#226#149#145, // #186
|
|
#226#149#151, // #187
|
|
#226#149#157, // #188
|
|
#194#162, // #189
|
|
#194#165, // #190
|
|
#226#148#144, // #191
|
|
#226#148#148, // #192
|
|
#226#148#180, // #193
|
|
#226#148#172, // #194
|
|
#226#148#156, // #195
|
|
#226#148#128, // #196
|
|
#226#148#188, // #197
|
|
#195#163, // #198
|
|
#195#131, // #199
|
|
#226#149#154, // #200
|
|
#226#149#148, // #201
|
|
#226#149#169, // #202
|
|
#226#149#166, // #203
|
|
#226#149#160, // #204
|
|
#226#149#144, // #205
|
|
#226#149#172, // #206
|
|
#194#164, // #207
|
|
#195#176, // #208
|
|
#195#144, // #209
|
|
#195#138, // #210
|
|
#195#139, // #211
|
|
#195#136, // #212
|
|
#196#177, // #213
|
|
#195#141, // #214
|
|
#195#142, // #215
|
|
#195#143, // #216
|
|
#226#148#152, // #217
|
|
#226#148#140, // #218
|
|
#226#150#136, // #219
|
|
#226#150#132, // #220
|
|
#194#166, // #221
|
|
#195#140, // #222
|
|
#226#150#128, // #223
|
|
#195#147, // #224
|
|
#195#159, // #225
|
|
#195#148, // #226
|
|
#195#146, // #227
|
|
#195#181, // #228
|
|
#195#149, // #229
|
|
#194#181, // #230
|
|
#195#190, // #231
|
|
#195#158, // #232
|
|
#195#154, // #233
|
|
#195#155, // #234
|
|
#195#153, // #235
|
|
#195#189, // #236
|
|
#195#157, // #237
|
|
#194#175, // #238
|
|
#194#180, // #239
|
|
#194#173, // #240
|
|
#194#177, // #241
|
|
#226#128#151, // #242
|
|
#194#190, // #243
|
|
#194#182, // #244
|
|
#194#167, // #245
|
|
#195#183, // #246
|
|
#194#184, // #247
|
|
#194#176, // #248
|
|
#194#168, // #249
|
|
#194#183, // #250
|
|
#194#185, // #251
|
|
#194#179, // #252
|
|
#194#178, // #253
|
|
#226#150#160, // #254
|
|
#194#160 // #255
|
|
);
|
|
|
|
// ftp://ftp.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP852.TXT
|
|
ArrayCP852ToUTF8 : TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
#195#135, // #128
|
|
#195#188, // #129
|
|
#195#169, // #130
|
|
#195#162, // #131
|
|
#195#164, // #132
|
|
#197#175, // #133
|
|
#196#135, // #134
|
|
#195#167, // #135
|
|
#197#130, // #136
|
|
#195#171, // #137
|
|
#197#144, // #138
|
|
#197#145, // #139
|
|
#195#174, // #140
|
|
#197#185, // #141
|
|
#195#132, // #142
|
|
#196#134, // #143
|
|
#195#137, // #144
|
|
#196#185, // #145
|
|
#196#186, // #146
|
|
#195#180, // #147
|
|
#195#182, // #148
|
|
#196#189, // #149
|
|
#196#190, // #150
|
|
#197#154, // #151
|
|
#197#155, // #152
|
|
#195#150, // #153
|
|
#195#156, // #154
|
|
#197#164, // #155
|
|
#197#165, // #156
|
|
#197#129, // #157
|
|
#195#151, // #158
|
|
#196#141, // #159
|
|
#195#161, // #160
|
|
#195#173, // #161
|
|
#195#179, // #162
|
|
#195#186, // #163
|
|
#196#132, // #164
|
|
#196#133, // #165
|
|
#197#189, // #166
|
|
#197#190, // #167
|
|
#196#152, // #168
|
|
#196#153, // #169
|
|
#194#172, // #170
|
|
#197#186, // #171
|
|
#196#140, // #172
|
|
#197#159, // #173
|
|
#194#171, // #174
|
|
#194#187, // #175
|
|
#226#150#145, // #176
|
|
#226#150#146, // #177
|
|
#226#150#147, // #178
|
|
#226#148#130, // #179
|
|
#226#148#164, // #180
|
|
#195#129, // #181
|
|
#195#130, // #182
|
|
#196#154, // #183
|
|
#197#158, // #184
|
|
#226#149#163, // #185
|
|
#226#149#145, // #186
|
|
#226#149#151, // #187
|
|
#226#149#157, // #188
|
|
#197#187, // #189
|
|
#197#188, // #190
|
|
#226#148#144, // #191
|
|
#226#148#148, // #192
|
|
#226#148#180, // #193
|
|
#226#148#172, // #194
|
|
#226#148#156, // #195
|
|
#226#148#128, // #196
|
|
#226#148#188, // #197
|
|
#196#130, // #198
|
|
#196#131, // #199
|
|
#226#149#154, // #200
|
|
#226#149#148, // #201
|
|
#226#149#169, // #202
|
|
#226#149#166, // #203
|
|
#226#149#160, // #204
|
|
#226#149#144, // #205
|
|
#226#149#172, // #206
|
|
#194#164, // #207
|
|
#196#145, // #208
|
|
#196#144, // #209
|
|
#196#142, // #210
|
|
#195#139, // #211
|
|
#196#143, // #212
|
|
#197#135, // #213
|
|
#195#141, // #214
|
|
#195#142, // #215
|
|
#196#155, // #216
|
|
#226#148#152, // #217
|
|
#226#148#140, // #218
|
|
#226#150#136, // #219
|
|
#226#150#132, // #220
|
|
#197#162, // #221
|
|
#197#174, // #222
|
|
#226#150#128, // #223
|
|
#195#147, // #224
|
|
#195#159, // #225
|
|
#195#148, // #226
|
|
#197#131, // #227
|
|
#197#132, // #228
|
|
#197#136, // #229
|
|
#197#160, // #230
|
|
#197#161, // #231
|
|
#197#148, // #232
|
|
#195#154, // #233
|
|
#197#149, // #234
|
|
#197#176, // #235
|
|
#195#189, // #236
|
|
#195#157, // #237
|
|
#197#163, // #238
|
|
#194#180, // #239
|
|
#194#173, // #240
|
|
#203#157, // #241
|
|
#203#155, // #242
|
|
#203#135, // #243
|
|
#203#152, // #244
|
|
#194#167, // #245
|
|
#195#183, // #246
|
|
#194#184, // #247
|
|
#194#176, // #248
|
|
#194#168, // #249
|
|
#203#153, // #250
|
|
#197#177, // #251
|
|
#197#152, // #252
|
|
#197#153, // #253
|
|
#226#150#160, // #254
|
|
#194#160 // #255
|
|
);
|
|
|
|
ArrayCP866ToUTF8 : TCharToUTF8Table = (
|
|
#0, //#0
|
|
#1, //#1
|
|
#2, //#2
|
|
#3, //#3
|
|
#4, //#4
|
|
#5, //#5
|
|
#6, //#6
|
|
#7, //#7
|
|
#8, //#8
|
|
#9, //#9
|
|
#10, //#10
|
|
#11, //#11
|
|
#12, //#12
|
|
#13, //#13
|
|
#14, //#14
|
|
#15, //#15
|
|
#16, //#16
|
|
#17, //#17
|
|
#18, //#18
|
|
#19, //#19
|
|
#20, //#20
|
|
#21, //#21
|
|
#22, //#22
|
|
#23, //#23
|
|
#24, //#24
|
|
#25, //#25
|
|
#26, //#26
|
|
#27, //#27
|
|
#28, //#28
|
|
#29, //#29
|
|
#30, //#30
|
|
#31, //#31
|
|
#32, //#32
|
|
#33, //#33
|
|
#34, //#34
|
|
#35, //#35
|
|
#36, //#36
|
|
#37, //#37
|
|
#38, //#38
|
|
#39, //#39
|
|
#40, //#40
|
|
#41, //#41
|
|
#42, //#42
|
|
#43, //#43
|
|
#44, //#44
|
|
#45, //#45
|
|
#46, //#46
|
|
#47, //#47
|
|
#48, //#48
|
|
#49, //#49
|
|
#50, //#50
|
|
#51, //#51
|
|
#52, //#52
|
|
#53, //#53
|
|
#54, //#54
|
|
#55, //#55
|
|
#56, //#56
|
|
#57, //#57
|
|
#58, //#58
|
|
#59, //#59
|
|
#60, //#60
|
|
#61, //#61
|
|
#62, //#62
|
|
#63, //#63
|
|
#64, //#64
|
|
#65, //#65
|
|
#66, //#66
|
|
#67, //#67
|
|
#68, //#68
|
|
#69, //#69
|
|
#70, //#70
|
|
#71, //#71
|
|
#72, //#72
|
|
#73, //#73
|
|
#74, //#74
|
|
#75, //#75
|
|
#76, //#76
|
|
#77, //#77
|
|
#78, //#78
|
|
#79, //#79
|
|
#80, //#80
|
|
#81, //#81
|
|
#82, //#82
|
|
#83, //#83
|
|
#84, //#84
|
|
#85, //#85
|
|
#86, //#86
|
|
#87, //#87
|
|
#88, //#88
|
|
#89, //#89
|
|
#90, //#90
|
|
#91, //#91
|
|
#92, //#92
|
|
#93, //#93
|
|
#94, //#94
|
|
#95, //#95
|
|
#96, //#96
|
|
#97, //#97
|
|
#98, //#98
|
|
#99, //#99
|
|
#100, //#100
|
|
#101, //#101
|
|
#102, //#102
|
|
#103, //#103
|
|
#104, //#104
|
|
#105, //#105
|
|
#106, //#106
|
|
#107, //#107
|
|
#108, //#108
|
|
#109, //#109
|
|
#110, //#110
|
|
#111, //#111
|
|
#112, //#112
|
|
#113, //#113
|
|
#114, //#114
|
|
#115, //#115
|
|
#116, //#116
|
|
#117, //#117
|
|
#118, //#118
|
|
#119, //#119
|
|
#120, //#120
|
|
#121, //#121
|
|
#122, //#122
|
|
#123, //#123
|
|
#124, //#124
|
|
#125, //#125
|
|
#126, //#126
|
|
#127, //#127
|
|
#208#144, //#128
|
|
#208#145, //#129
|
|
#208#146, //#130
|
|
#208#147, //#131
|
|
#208#148, //#132
|
|
#208#149, //#133
|
|
#208#150, //#134
|
|
#208#151, //#135
|
|
#208#152, //#136
|
|
#208#153, //#137
|
|
#208#154, //#138
|
|
#208#155, //#139
|
|
#208#156, //#140
|
|
#208#157, //#141
|
|
#208#158, //#142
|
|
#208#159, //#143
|
|
#208#160, //#144
|
|
#208#161, //#145
|
|
#208#162, //#146
|
|
#208#163, //#147
|
|
#208#164, //#148
|
|
#208#165, //#149
|
|
#208#166, //#150
|
|
#208#167, //#151
|
|
#208#168, //#152
|
|
#208#169, //#153
|
|
#208#170, //#154
|
|
#208#171, //#155
|
|
#208#172, //#156
|
|
#208#173, //#157
|
|
#208#174, //#158
|
|
#208#175, //#159
|
|
#208#176, //#160
|
|
#208#177, //#161
|
|
#208#178, //#162
|
|
#208#179, //#163
|
|
#208#180, //#164
|
|
#208#181, //#165
|
|
#208#182, //#166
|
|
#208#183, //#167
|
|
#208#184, //#168
|
|
#208#185, //#169
|
|
#208#186, //#170
|
|
#208#187, //#171
|
|
#208#188, //#172
|
|
#208#189, //#173
|
|
#208#190, //#174
|
|
#208#191, //#175
|
|
#226#150#145, //#176
|
|
#226#150#146, //#177
|
|
#226#150#147, //#178
|
|
#226#148#130, //#179
|
|
#226#148#164, //#180
|
|
#226#149#161, //#181
|
|
#226#149#162, //#182
|
|
#226#149#150, //#183
|
|
#226#149#149, //#184
|
|
#226#149#163, //#185
|
|
#226#149#145, //#186
|
|
#226#149#151, //#187
|
|
#226#149#157, //#188
|
|
#226#149#156, //#189
|
|
#226#149#155, //#190
|
|
#226#148#144, //#191
|
|
#226#148#148, //#192
|
|
#226#148#180, //#193
|
|
#226#148#172, //#194
|
|
#226#148#156, //#195
|
|
#226#148#128, //#196
|
|
#226#148#188, //#197
|
|
#226#149#158, //#198
|
|
#226#149#159, //#199
|
|
#226#149#154, //#200
|
|
#226#149#148, //#201
|
|
#226#149#169, //#202
|
|
#226#149#166, //#203
|
|
#226#149#160, //#204
|
|
#226#149#144, //#205
|
|
#226#149#172, //#206
|
|
#226#149#167, //#207
|
|
#226#149#168, //#208
|
|
#226#149#164, //#209
|
|
#226#149#165, //#210
|
|
#226#149#153, //#211
|
|
#226#149#152, //#212
|
|
#226#149#146, //#213
|
|
#226#149#147, //#214
|
|
#226#149#171, //#215
|
|
#226#149#170, //#216
|
|
#226#148#152, //#217
|
|
#226#148#140, //#218
|
|
#226#150#136, //#219
|
|
#226#150#132, //#220
|
|
#226#150#140, //#221
|
|
#226#150#144, //#222
|
|
#226#150#128, //#223
|
|
#209#128, //#224
|
|
#209#129, //#225
|
|
#209#130, //#226
|
|
#209#131, //#227
|
|
#209#132, //#228
|
|
#209#133, //#229
|
|
#209#134, //#230
|
|
#209#135, //#231
|
|
#209#136, //#232
|
|
#209#137, //#233
|
|
#209#138, //#234
|
|
#209#139, //#235
|
|
#209#140, //#236
|
|
#209#141, //#237
|
|
#209#142, //#238
|
|
#209#143, //#239
|
|
#208#129, //#240
|
|
#209#145, //#241
|
|
#208#132, //#242
|
|
#209#148, //#243
|
|
#208#135, //#244
|
|
#209#151, //#245
|
|
#208#142, //#246
|
|
#209#158, //#247
|
|
#194#176, //#248
|
|
#226#136#153, //#249
|
|
#194#183, //#250
|
|
#226#136#154, //#251
|
|
#226#132#150, //#252
|
|
#194#164, //#253
|
|
#226#150#160, //#254
|
|
#194#160 //#255
|
|
);
|
|
|
|
ArrayCP874ToUTF8: TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
#226#130#172, // #128
|
|
#194#129, // #129
|
|
#194#130, // #130
|
|
#194#131, // #131
|
|
#194#132, // #132
|
|
#226#128#166, // #133
|
|
#194#134, // #134
|
|
#194#135, // #135
|
|
#194#136, // #136
|
|
#194#137, // #137
|
|
#194#138, // #138
|
|
#194#139, // #139
|
|
#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
|
|
#226#128#157, // #148
|
|
#226#128#162, // #149
|
|
#226#128#147, // #150
|
|
#226#128#148, // #151
|
|
#194#152, // #152
|
|
#194#153, // #153
|
|
#194#154, // #154
|
|
#194#155, // #155
|
|
#194#156, // #156
|
|
#194#157, // #157
|
|
#194#158, // #158
|
|
#194#159, // #159
|
|
#194#160, // #160
|
|
#224#184#129, // #161
|
|
#224#184#130, // #162
|
|
#224#184#131, // #163
|
|
#224#184#132, // #164
|
|
#224#184#133, // #165
|
|
#224#184#134, // #166
|
|
#224#184#135, // #167
|
|
#224#184#136, // #168
|
|
#224#184#137, // #169
|
|
#224#184#138, // #170
|
|
#224#184#139, // #171
|
|
#224#184#140, // #172
|
|
#224#184#141, // #173
|
|
#224#184#142, // #174
|
|
#224#184#143, // #175
|
|
#224#184#144, // #176
|
|
#224#184#145, // #177
|
|
#224#184#146, // #178
|
|
#224#184#147, // #179
|
|
#224#184#148, // #180
|
|
#224#184#149, // #181
|
|
#224#184#150, // #182
|
|
#224#184#151, // #183
|
|
#224#184#152, // #184
|
|
#224#184#153, // #185
|
|
#224#184#154, // #186
|
|
#224#184#155, // #187
|
|
#224#184#156, // #188
|
|
#224#184#157, // #189
|
|
#224#184#158, // #190
|
|
#224#184#159, // #191
|
|
#224#184#160, // #192
|
|
#224#184#161, // #193
|
|
#224#184#162, // #194
|
|
#224#184#163, // #195
|
|
#224#184#164, // #196
|
|
#224#184#165, // #197
|
|
#224#184#166, // #198
|
|
#224#184#167, // #199
|
|
#224#184#168, // #200
|
|
#224#184#169, // #201
|
|
#224#184#170, // #202
|
|
#224#184#171, // #203
|
|
#224#184#172, // #204
|
|
#224#184#173, // #205
|
|
#224#184#174, // #206
|
|
#224#184#175, // #207
|
|
#224#184#176, // #208
|
|
#224#184#177, // #209
|
|
#224#184#178, // #210
|
|
#224#184#179, // #211
|
|
#224#184#180, // #212
|
|
#224#184#181, // #213
|
|
#224#184#182, // #214
|
|
#224#184#183, // #215
|
|
#224#184#184, // #216
|
|
#224#184#185, // #217
|
|
#224#184#186, // #218
|
|
#195#155, // #219
|
|
#195#156, // #220
|
|
#195#157, // #221
|
|
#195#158, // #222
|
|
#224#184#191, // #223
|
|
#224#185#128, // #224
|
|
#224#185#129, // #225
|
|
#224#185#130, // #226
|
|
#224#185#131, // #227
|
|
#224#185#132, // #228
|
|
#224#185#133, // #229
|
|
#224#185#134, // #230
|
|
#224#185#135, // #231
|
|
#224#185#136, // #232
|
|
#224#185#137, // #233
|
|
#224#185#138, // #234
|
|
#224#185#139, // #235
|
|
#224#185#140, // #236
|
|
#224#185#141, // #237
|
|
#224#185#142, // #238
|
|
#224#185#143, // #239
|
|
#224#185#144, // #240
|
|
#224#185#145, // #241
|
|
#224#185#146, // #242
|
|
#224#185#147, // #243
|
|
#224#185#148, // #244
|
|
#224#185#149, // #245
|
|
#224#185#150, // #246
|
|
#224#185#151, // #247
|
|
#224#185#152, // #248
|
|
#224#185#153, // #249
|
|
#224#185#154, // #250
|
|
#224#185#155, // #251
|
|
#195#188, // #252
|
|
#195#189, // #253
|
|
#195#190, // #254
|
|
#195#191 // #255
|
|
);
|
|
|
|
ArrayKOI8ToUTF8: TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
'', // #128
|
|
'', // #129
|
|
'', // #130
|
|
'', // #131
|
|
'', // #132
|
|
'', // #133
|
|
'', // #134
|
|
'', // #135
|
|
'', // #136
|
|
'', // #137
|
|
'', // #138
|
|
'', // #139
|
|
'', // #140
|
|
'', // #141
|
|
'', // #142
|
|
'', // #143
|
|
'', // #144
|
|
'', // #145
|
|
'', // #146
|
|
'', // #147
|
|
'', // #148
|
|
'', // #149
|
|
'', // #150
|
|
'', // #151
|
|
'', // #152
|
|
'', // #153
|
|
'', // #154
|
|
'', // #155
|
|
'', // #156
|
|
'', // #157
|
|
'', // #158
|
|
'', // #159
|
|
'', // #160
|
|
'', // #161
|
|
'', // #162
|
|
'', // #163
|
|
'', // #164
|
|
'', // #165
|
|
'', // #166
|
|
'', // #167
|
|
'', // #168
|
|
'', // #169
|
|
'', // #170
|
|
'', // #171
|
|
'', // #172
|
|
'', // #173
|
|
'', // #174
|
|
'', // #175
|
|
'', // #176
|
|
'', // #177
|
|
'', // #178
|
|
'', // #179
|
|
'', // #180
|
|
'', // #181
|
|
'', // #182
|
|
'', // #183
|
|
'', // #184
|
|
'', // #185
|
|
'', // #186
|
|
'', // #187
|
|
'', // #188
|
|
'', // #189
|
|
'', // #190
|
|
'', // #191
|
|
#209#142, // #192
|
|
#208#176, // #193
|
|
#208#177, // #194
|
|
#209#134, // #195
|
|
#208#180, // #196
|
|
#208#181, // #197
|
|
#209#132, // #198
|
|
#208#179, // #199
|
|
#209#133, // #200
|
|
#208#184, // #201
|
|
#208#185, // #202
|
|
#208#186, // #203
|
|
#208#187, // #204
|
|
#208#188, // #205
|
|
#208#189, // #206
|
|
#208#190, // #207
|
|
#208#191, // #208
|
|
#209#143, // #209
|
|
#209#128, // #210
|
|
#209#129, // #211
|
|
#209#130, // #212
|
|
#209#131, // #213
|
|
#208#182, // #214
|
|
#208#178, // #215
|
|
#209#140, // #216
|
|
#209#139, // #217
|
|
#208#183, // #218
|
|
#209#136, // #219
|
|
#209#141, // #220
|
|
#209#137, // #221
|
|
#209#135, // #222
|
|
#209#138, // #223
|
|
#208#174, // #224
|
|
#208#144, // #225
|
|
#208#145, // #226
|
|
#208#166, // #227
|
|
#208#148, // #228
|
|
#208#149, // #229
|
|
#208#164, // #230
|
|
#208#147, // #231
|
|
#208#165, // #232
|
|
#208#152, // #233
|
|
#208#153, // #234
|
|
#208#154, // #235
|
|
#208#155, // #236
|
|
#208#156, // #237
|
|
#208#157, // #238
|
|
#208#158, // #239
|
|
#208#159, // #240
|
|
#208#175, // #241
|
|
#208#160, // #242
|
|
#208#161, // #243
|
|
#208#162, // #244
|
|
#208#163, // #245
|
|
#208#150, // #246
|
|
#208#146, // #247
|
|
#208#172, // #248
|
|
#208#171, // #249
|
|
#208#151, // #250
|
|
#208#168, // #251
|
|
#208#173, // #252
|
|
#208#169, // #253
|
|
#208#167, // #254
|
|
'' // #255
|
|
);
|
|
|
|
ArrayMacintoshToUTF8: TCharToUTF8Table = (
|
|
#0, // #0
|
|
#1, // #1
|
|
#2, // #2
|
|
#3, // #3
|
|
#4, // #4
|
|
#5, // #5
|
|
#6, // #6
|
|
#7, // #7
|
|
#8, // #8
|
|
#9, // #9
|
|
#10, // #10
|
|
#11, // #11
|
|
#12, // #12
|
|
#13, // #13
|
|
#14, // #14
|
|
#15, // #15
|
|
#16, // #16
|
|
#17, // #17
|
|
#18, // #18
|
|
#19, // #19
|
|
#20, // #20
|
|
#21, // #21
|
|
#22, // #22
|
|
#23, // #23
|
|
#24, // #24
|
|
#25, // #25
|
|
#26, // #26
|
|
#27, // #27
|
|
#28, // #28
|
|
#29, // #29
|
|
#30, // #30
|
|
#31, // #31
|
|
' ', // ' '
|
|
'!', // '!'
|
|
'"', // '"'
|
|
'#', // '#'
|
|
'$', // '$'
|
|
'%', // '%'
|
|
'&', // '&'
|
|
'''', // ''''
|
|
'(', // '('
|
|
')', // ')'
|
|
'*', // '*'
|
|
'+', // '+'
|
|
',', // ','
|
|
'-', // '-'
|
|
'.', // '.'
|
|
'/', // '/'
|
|
'0', // '0'
|
|
'1', // '1'
|
|
'2', // '2'
|
|
'3', // '3'
|
|
'4', // '4'
|
|
'5', // '5'
|
|
'6', // '6'
|
|
'7', // '7'
|
|
'8', // '8'
|
|
'9', // '9'
|
|
':', // ':'
|
|
';', // ';'
|
|
'<', // '<'
|
|
'=', // '='
|
|
'>', // '>'
|
|
'?', // '?'
|
|
'@', // '@'
|
|
'A', // 'A'
|
|
'B', // 'B'
|
|
'C', // 'C'
|
|
'D', // 'D'
|
|
'E', // 'E'
|
|
'F', // 'F'
|
|
'G', // 'G'
|
|
'H', // 'H'
|
|
'I', // 'I'
|
|
'J', // 'J'
|
|
'K', // 'K'
|
|
'L', // 'L'
|
|
'M', // 'M'
|
|
'N', // 'N'
|
|
'O', // 'O'
|
|
'P', // 'P'
|
|
'Q', // 'Q'
|
|
'R', // 'R'
|
|
'S', // 'S'
|
|
'T', // 'T'
|
|
'U', // 'U'
|
|
'V', // 'V'
|
|
'W', // 'W'
|
|
'X', // 'X'
|
|
'Y', // 'Y'
|
|
'Z', // 'Z'
|
|
'[', // '['
|
|
'\', // '\'
|
|
']', // ']'
|
|
'^', // '^'
|
|
'_', // '_'
|
|
'`', // '`'
|
|
'a', // 'a'
|
|
'b', // 'b'
|
|
'c', // 'c'
|
|
'd', // 'd'
|
|
'e', // 'e'
|
|
'f', // 'f'
|
|
'g', // 'g'
|
|
'h', // 'h'
|
|
'i', // 'i'
|
|
'j', // 'j'
|
|
'k', // 'k'
|
|
'l', // 'l'
|
|
'm', // 'm'
|
|
'n', // 'n'
|
|
'o', // 'o'
|
|
'p', // 'p'
|
|
'q', // 'q'
|
|
'r', // 'r'
|
|
's', // 's'
|
|
't', // 't'
|
|
'u', // 'u'
|
|
'v', // 'v'
|
|
'w', // 'w'
|
|
'x', // 'x'
|
|
'y', // 'y'
|
|
'z', // 'z'
|
|
'{', // '{'
|
|
'|', // '|'
|
|
'}', // '}'
|
|
'~', // '~'
|
|
#127, // #127
|
|
#195#132, // #128
|
|
#195#133, // #129
|
|
#195#135, // #130
|
|
#195#137, // #131
|
|
#195#145, // #132
|
|
#195#150, // #133
|
|
#195#156, // #134
|
|
#195#161, // #135
|
|
#195#160, // #136
|
|
#195#162, // #137
|
|
#195#164, // #138
|
|
#195#163, // #139
|
|
#195#165, // #140
|
|
#195#167, // #141
|
|
#195#169, // #142
|
|
#195#168, // #143
|
|
#195#170, // #144
|
|
#195#171, // #145
|
|
#195#173, // #146
|
|
#195#172, // #147
|
|
#195#174, // #148
|
|
#195#175, // #149
|
|
#195#177, // #150
|
|
#195#179, // #151
|
|
#195#178, // #152
|
|
#195#180, // #153
|
|
#195#182, // #154
|
|
#195#181, // #155
|
|
#195#186, // #156
|
|
#195#185, // #157
|
|
#195#187, // #158
|
|
#195#188, // #159
|
|
#226#128#160, // #160
|
|
#194#176, // #161
|
|
#194#162, // #162
|
|
#194#163, // #163
|
|
#194#167, // #164
|
|
#226#128#162, // #165
|
|
#194#182, // #166
|
|
#195#159, // #167
|
|
#194#174, // #168
|
|
#194#169, // #169
|
|
#226#132#162, // #170
|
|
#194#180, // #171
|
|
#194#168, // #172
|
|
#226#137#160, // #173
|
|
#195#134, // #174
|
|
#195#152, // #175
|
|
#226#136#158, // #176
|
|
#194#177, // #177
|
|
#226#137#164, // #178
|
|
#226#137#165, // #179
|
|
#194#165, // #180
|
|
#194#181, // #181
|
|
#226#136#130, // #182
|
|
#226#136#145, // #183
|
|
#226#136#143, // #184
|
|
#207#128, // #185
|
|
#226#136#171, // #186
|
|
#194#170, // #187
|
|
#194#186, // #188
|
|
#206#169, // #189
|
|
#195#166, // #190
|
|
#195#184, // #191
|
|
#194#191, // #192
|
|
#194#161, // #193
|
|
#194#172, // #194
|
|
#226#136#154, // #195
|
|
#198#146, // #196
|
|
#226#137#136, // #197
|
|
#206#148, // #198
|
|
#194#171, // #199
|
|
#194#187, // #200
|
|
#226#128#166, // #201
|
|
#194#160, // #202
|
|
#195#128, // #203
|
|
#195#131, // #204
|
|
#195#149, // #205
|
|
#197#146, // #206
|
|
#197#147, // #207
|
|
#226#128#147, // #208
|
|
#226#128#148, // #209
|
|
#226#128#156, // #210
|
|
#226#128#157, // #211
|
|
#226#128#152, // #212
|
|
#226#128#153, // #213
|
|
#195#183, // #214
|
|
#226#151#138, // #215
|
|
#195#191, // #216
|
|
#197#184, // #217
|
|
#226#129#132, // #218
|
|
#226#130#172, // #219
|
|
#226#128#185, // #220
|
|
#226#128#186, // #221
|
|
#239#172#129, // #222
|
|
#239#172#130, // #223
|
|
#226#128#161, // #224
|
|
#194#183, // #225
|
|
#226#128#154, // #226
|
|
#226#128#158, // #227
|
|
#226#128#176, // #228
|
|
#195#130, // #229
|
|
#195#138, // #230
|
|
#195#129, // #231
|
|
#195#139, // #232
|
|
#195#136, // #233
|
|
#195#141, // #234
|
|
#195#142, // #235
|
|
#195#143, // #236
|
|
#195#140, // #237
|
|
#195#147, // #238
|
|
#195#148, // #239
|
|
#238#128#158, // #240
|
|
#195#146, // #241
|
|
#195#154, // #242
|
|
#195#155, // #243
|
|
#195#153, // #244
|
|
#196#177, // #245
|
|
#203#134, // #246
|
|
#203#156, // #247
|
|
#194#175, // #248
|
|
#203#152, // #249
|
|
#203#153, // #250
|
|
#203#154, // #251
|
|
#194#184, // #252
|
|
#203#157, // #253
|
|
#203#155, // #254
|
|
#203#135 // #255
|
|
);
|
|
|
|
function UTF8BOMToUTF8(const s: string): string;
|
|
begin
|
|
Result:=copy(s,4,length(s));
|
|
end;
|
|
|
|
function ISO_8859_1ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayISO_8859_1ToUTF8);
|
|
end;
|
|
|
|
function ISO_8859_15ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayISO_8859_15ToUTF8);
|
|
end;
|
|
|
|
function ISO_8859_2ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayISO_8859_2ToUTF8);
|
|
end;
|
|
|
|
function CP1250ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayCP1250ToUTF8);
|
|
end;
|
|
|
|
function CP1251ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayCP1251ToUTF8);
|
|
end;
|
|
|
|
function CP1252ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayCP1252ToUTF8);
|
|
end;
|
|
|
|
function CP1253ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayCP1253ToUTF8);
|
|
end;
|
|
|
|
function CP1254ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayCP1254ToUTF8);
|
|
end;
|
|
|
|
function CP1255ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayCP1255ToUTF8);
|
|
end;
|
|
|
|
function CP1256ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayCP1256ToUTF8);
|
|
end;
|
|
|
|
function CP1257ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayCP1257ToUTF8);
|
|
end;
|
|
|
|
function CP1258ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayCP1258ToUTF8);
|
|
end;
|
|
|
|
function CP437ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayCP437ToUTF8);
|
|
end;
|
|
|
|
function CP850ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayCP850ToUTF8);
|
|
end;
|
|
|
|
function CP852ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayCP852ToUTF8);
|
|
end;
|
|
|
|
function CP866ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayCP866ToUTF8);
|
|
end;
|
|
|
|
function CP874ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayCP874ToUTF8);
|
|
end;
|
|
|
|
function KOI8ToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayKOI8ToUTF8);
|
|
end;
|
|
|
|
function MacintoshToUTF8(const s: string): string;
|
|
begin
|
|
Result:=SingleByteToUTF8(s,ArrayMacintoshToUTF8);
|
|
end;
|
|
|
|
function SingleByteToUTF8(const s: string; const Table: TCharToUTF8Table): string;
|
|
var
|
|
len: Integer;
|
|
i: Integer;
|
|
Src: PChar;
|
|
Dest: PChar;
|
|
p: PChar;
|
|
c: Char;
|
|
begin
|
|
if s='' then begin
|
|
Result:='';
|
|
exit;
|
|
end;
|
|
len:=length(s);
|
|
SetLength(Result,len*4);// UTF-8 is at most 4 bytes
|
|
Src:=PChar(s);
|
|
Dest:=PChar(Result);
|
|
for i:=1 to len do begin
|
|
c:=Src^;
|
|
inc(Src);
|
|
if ord(c)<128 then begin
|
|
Dest^:=c;
|
|
inc(Dest);
|
|
end else begin
|
|
p:=Table[c];
|
|
if p<>nil then begin
|
|
while p^<>#0 do begin
|
|
Dest^:=p^;
|
|
inc(p);
|
|
inc(Dest);
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
SetLength(Result,{%H-}PtrUInt(Dest)-PtrUInt(Result));
|
|
end;
|
|
|
|
function UCS2LEToUTF8(const s: string): string;
|
|
var
|
|
len: Integer;
|
|
Src: PWord;
|
|
Dest: PChar;
|
|
i: Integer;
|
|
c: Word;
|
|
begin
|
|
if s='' then begin
|
|
Result:=s;
|
|
exit;
|
|
end;
|
|
len:=length(s) div 2;
|
|
SetLength(Result,len*3);// UTF-8 is at most 3/2 times the size
|
|
Src:=PWord(Pointer(s));
|
|
Dest:=PChar(Result);
|
|
for i:=1 to len do begin
|
|
c:=LEtoN(Src^);
|
|
inc(Src);
|
|
if ord(c)<128 then begin
|
|
Dest^:=chr(c);
|
|
inc(Dest);
|
|
end else begin
|
|
inc(Dest,UnicodeToUTF8SkipErrors(c,Dest));
|
|
end;
|
|
end;
|
|
len:={%H-}PtrUInt(Dest)-PtrUInt(Result);
|
|
if len>length(Result) then
|
|
raise Exception.Create('');
|
|
SetLength(Result,len);
|
|
end;
|
|
|
|
function UCS2BEToUTF8(const s: string): string;
|
|
var
|
|
len: Integer;
|
|
Src: PWord;
|
|
Dest: PChar;
|
|
i: Integer;
|
|
c: Word;
|
|
begin
|
|
if s='' then begin
|
|
Result:=s;
|
|
exit;
|
|
end;
|
|
len:=length(s) div 2;
|
|
SetLength(Result,len*3);// UTF-8 is at most three times the size
|
|
Src:=PWord(Pointer(s));
|
|
Dest:=PChar(Result);
|
|
for i:=1 to len do begin
|
|
c:=BEtoN(Src^);
|
|
inc(Src);
|
|
if ord(c)<128 then begin
|
|
Dest^:=chr(c);
|
|
inc(Dest);
|
|
end else begin
|
|
inc(Dest,UnicodeToUTF8SkipErrors(c,Dest));
|
|
end;
|
|
end;
|
|
len:={%H-}PtrUInt(Dest)-PtrUInt(Result);
|
|
if len>length(Result) then
|
|
raise Exception.Create('');
|
|
SetLength(Result,len);
|
|
end;
|
|
|
|
function UTF8ToUTF8BOM(const s: string): string;
|
|
begin
|
|
Result:=UTF8BOM+s;
|
|
end;
|
|
|
|
{$IfNdef UseSystemCPConv}
|
|
function UnicodeToCP1256(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
0..127: Result:=Unicode;
|
|
160: Result:=160;
|
|
162..169: Result:=Unicode;
|
|
171..185: Result:=Unicode;
|
|
187..190: Result:=Unicode;
|
|
215: Result:=215;
|
|
224: Result:=224;
|
|
226: Result:=226;
|
|
231..235: Result:=Unicode;
|
|
238..239: Result:=Unicode;
|
|
244: Result:=244;
|
|
247: Result:=247;
|
|
249: Result:=249;
|
|
251..252: Result:=Unicode;
|
|
338: Result:=140;
|
|
339: Result:=156;
|
|
402: Result:=131;
|
|
710: Result:=136;
|
|
1548: Result:=161;
|
|
1563: Result:=186;
|
|
1567: Result:=191;
|
|
1569..1590: Result:=Unicode-1376;
|
|
1591..1594: Result:=Unicode-1375;
|
|
1600..1603: Result:=Unicode-1380;
|
|
1604: Result:=225;
|
|
1605..1608: Result:=Unicode-1378;
|
|
1609..1610: Result:=Unicode-1373;
|
|
1611..1614: Result:=Unicode-1371;
|
|
1615..1616: Result:=Unicode-1370;
|
|
1617: Result:=248;
|
|
1618: Result:=250;
|
|
1657: Result:=138;
|
|
1662: Result:=129;
|
|
1670: Result:=141;
|
|
1672: Result:=143;
|
|
1681: Result:=154;
|
|
1688: Result:=142;
|
|
1705: Result:=152;
|
|
1711: Result:=144;
|
|
1722: Result:=159;
|
|
1726: Result:=170;
|
|
1729: Result:=192;
|
|
1746: Result:=255;
|
|
8204..8205: Result:=Unicode-8047;
|
|
8206..8207: Result:=Unicode-7953;
|
|
8211..8212: Result:=Unicode-8061;
|
|
8216..8217: Result:=Unicode-8071;
|
|
8218: Result:=130;
|
|
8220..8221: Result:=Unicode-8073;
|
|
8222: Result:=132;
|
|
8224..8225: Result:=Unicode-8090;
|
|
8226: Result:=149;
|
|
8230: Result:=133;
|
|
8240: Result:=137;
|
|
8249: Result:=139;
|
|
8250: Result:=155;
|
|
8364: Result:=128;
|
|
8482: Result:=153;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToCP437(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
0..127: Result:=Unicode;
|
|
160: Result:=255;
|
|
161: Result:=173;
|
|
162..163: Result:=Unicode-7;
|
|
165: Result:=157;
|
|
170: Result:=166;
|
|
171: Result:=174;
|
|
172: Result:=170;
|
|
176: Result:=248;
|
|
177: Result:=241;
|
|
178: Result:=253;
|
|
181: Result:=230;
|
|
183: Result:=250;
|
|
186: Result:=167;
|
|
187: Result:=175;
|
|
188: Result:=172;
|
|
189: Result:=171;
|
|
191: Result:=168;
|
|
196..197: Result:=Unicode-54;
|
|
198: Result:=146;
|
|
199: Result:=128;
|
|
201: Result:=144;
|
|
209: Result:=165;
|
|
214: Result:=153;
|
|
220: Result:=154;
|
|
223: Result:=225;
|
|
224: Result:=133;
|
|
225: Result:=160;
|
|
226: Result:=131;
|
|
228: Result:=132;
|
|
229: Result:=134;
|
|
230: Result:=145;
|
|
231: Result:=135;
|
|
232: Result:=138;
|
|
233: Result:=130;
|
|
234..235: Result:=Unicode-98;
|
|
236: Result:=141;
|
|
237: Result:=161;
|
|
238: Result:=140;
|
|
239: Result:=139;
|
|
241: Result:=164;
|
|
242: Result:=149;
|
|
243: Result:=162;
|
|
244: Result:=147;
|
|
246: Result:=148;
|
|
247: Result:=246;
|
|
249: Result:=151;
|
|
250: Result:=163;
|
|
251: Result:=150;
|
|
252: Result:=129;
|
|
255: Result:=152;
|
|
262: Result := 93;
|
|
263: Result := 125;
|
|
268: Result := 94;
|
|
269: Result := 126;
|
|
272: Result := 92;
|
|
273: Result := 124;
|
|
381: Result := 64;
|
|
382: Result := 96;
|
|
352: Result := 91;
|
|
353: Result := 123;
|
|
402: Result:=159;
|
|
915: Result:=226;
|
|
920: Result:=233;
|
|
931: Result:=228;
|
|
934: Result:=232;
|
|
937: Result:=234;
|
|
945: Result:=224;
|
|
948: Result:=235;
|
|
949: Result:=238;
|
|
960: Result:=227;
|
|
963: Result:=229;
|
|
964: Result:=231;
|
|
966: Result:=237;
|
|
8319: Result:=252;
|
|
8359: Result:=158;
|
|
8729: Result:=249;
|
|
8730: Result:=251;
|
|
8734: Result:=236;
|
|
8745: Result:=239;
|
|
8776: Result:=247;
|
|
8801: Result:=240;
|
|
8804: Result:=243;
|
|
8805: Result:=242;
|
|
8976: Result:=169;
|
|
8992..8993: Result:=Unicode-8748;
|
|
9472: Result:=196;
|
|
9474: Result:=179;
|
|
9484: Result:=218;
|
|
9488: Result:=191;
|
|
9492: Result:=192;
|
|
9496: Result:=217;
|
|
9500: Result:=195;
|
|
9508: Result:=180;
|
|
9516: Result:=194;
|
|
9524: Result:=193;
|
|
9532: Result:=197;
|
|
9552: Result:=205;
|
|
9553: Result:=186;
|
|
9554..9555: Result:=Unicode-9341;
|
|
9556: Result:=201;
|
|
9557: Result:=184;
|
|
9558: Result:=183;
|
|
9559: Result:=187;
|
|
9560: Result:=212;
|
|
9561: Result:=211;
|
|
9562: Result:=200;
|
|
9563: Result:=190;
|
|
9564: Result:=189;
|
|
9565: Result:=188;
|
|
9566..9567: Result:=Unicode-9368;
|
|
9568: Result:=204;
|
|
9569..9570: Result:=Unicode-9388;
|
|
9571: Result:=185;
|
|
9572..9573: Result:=Unicode-9363;
|
|
9574: Result:=203;
|
|
9575..9576: Result:=Unicode-9368;
|
|
9577: Result:=202;
|
|
9578: Result:=216;
|
|
9579: Result:=215;
|
|
9580: Result:=206;
|
|
9600: Result:=223;
|
|
9604: Result:=220;
|
|
9608: Result:=219;
|
|
9612: Result:=221;
|
|
9616: Result:=222;
|
|
9617..9619: Result:=Unicode-9441;
|
|
9632: Result:=254;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToCP850(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
0..127: Result:=Unicode;
|
|
160: Result:=255;
|
|
161: Result:=173;
|
|
162: Result:=189;
|
|
163: Result:=156;
|
|
164: Result:=207;
|
|
165: Result:=190;
|
|
166: Result:=221;
|
|
167: Result:=245;
|
|
168: Result:=249;
|
|
169: Result:=184;
|
|
170: Result:=166;
|
|
171: Result:=174;
|
|
172: Result:=170;
|
|
173: Result:=240;
|
|
174: Result:=169;
|
|
175: Result:=238;
|
|
176: Result:=248;
|
|
177: Result:=241;
|
|
178: Result:=253;
|
|
179: Result:=252;
|
|
180: Result:=239;
|
|
181: Result:=230;
|
|
182: Result:=244;
|
|
183: Result:=250;
|
|
184: Result:=247;
|
|
185: Result:=251;
|
|
186: Result:=167;
|
|
187: Result:=175;
|
|
188: Result:=172;
|
|
189: Result:=171;
|
|
190: Result:=243;
|
|
191: Result:=168;
|
|
192: Result:=183;
|
|
193..194: Result:=Unicode-12;
|
|
195: Result:=199;
|
|
196..197: Result:=Unicode-54;
|
|
198: Result:=146;
|
|
199: Result:=128;
|
|
200: Result:=212;
|
|
201: Result:=144;
|
|
202..203: Result:=Unicode+8;
|
|
204: Result:=222;
|
|
205..207: Result:=Unicode+9;
|
|
208: Result:=209;
|
|
209: Result:=165;
|
|
210: Result:=227;
|
|
211: Result:=224;
|
|
212: Result:=226;
|
|
213: Result:=229;
|
|
214: Result:=153;
|
|
215: Result:=158;
|
|
216: Result:=157;
|
|
217: Result:=235;
|
|
218..219: Result:=Unicode+15;
|
|
220: Result:=154;
|
|
221: Result:=237;
|
|
222: Result:=232;
|
|
223: Result:=225;
|
|
224: Result:=133;
|
|
225: Result:=160;
|
|
226: Result:=131;
|
|
227: Result:=198;
|
|
228: Result:=132;
|
|
229: Result:=134;
|
|
230: Result:=145;
|
|
231: Result:=135;
|
|
232: Result:=138;
|
|
233: Result:=130;
|
|
234..235: Result:=Unicode-98;
|
|
236: Result:=141;
|
|
237: Result:=161;
|
|
238: Result:=140;
|
|
239: Result:=139;
|
|
240: Result:=208;
|
|
241: Result:=164;
|
|
242: Result:=149;
|
|
243: Result:=162;
|
|
244: Result:=147;
|
|
245: Result:=228;
|
|
246: Result:=148;
|
|
247: Result:=246;
|
|
248: Result:=155;
|
|
249: Result:=151;
|
|
250: Result:=163;
|
|
251: Result:=150;
|
|
252: Result:=129;
|
|
253: Result:=236;
|
|
254: Result:=231;
|
|
255: Result:=152;
|
|
305: Result:=213;
|
|
402: Result:=159;
|
|
8215: Result:=242;
|
|
9472: Result:=196;
|
|
9474: Result:=179;
|
|
9484: Result:=218;
|
|
9488: Result:=191;
|
|
9492: Result:=192;
|
|
9496: Result:=217;
|
|
9500: Result:=195;
|
|
9508: Result:=180;
|
|
9516: Result:=194;
|
|
9524: Result:=193;
|
|
9532: Result:=197;
|
|
9552: Result:=205;
|
|
9553: Result:=186;
|
|
9556: Result:=201;
|
|
9559: Result:=187;
|
|
9562: Result:=200;
|
|
9565: Result:=188;
|
|
9568: Result:=204;
|
|
9571: Result:=185;
|
|
9574: Result:=203;
|
|
9577: Result:=202;
|
|
9580: Result:=206;
|
|
9600: Result:=223;
|
|
9604: Result:=220;
|
|
9608: Result:=219;
|
|
9617..9619: Result:=Unicode-9441;
|
|
9632: Result:=254;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
// ftp://ftp.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP852.TXT
|
|
function UnicodeToCP852(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
0..127: Result:=Unicode;
|
|
160: Result:=255;
|
|
164: Result:=207;
|
|
167: Result:=245;
|
|
168: Result:=249;
|
|
171: Result:=174;
|
|
172: Result:=170;
|
|
173: Result:=240;
|
|
176: Result:=248;
|
|
180: Result:=239;
|
|
184: Result:=247;
|
|
187: Result:=175;
|
|
193..194: Result:=Unicode-12;
|
|
196: Result:=142;
|
|
199: Result:=128;
|
|
201: Result:=144;
|
|
203: Result:=211;
|
|
205..206: Result:=Unicode+9;
|
|
211: Result:=224;
|
|
212: Result:=226;
|
|
214: Result:=153;
|
|
215: Result:=158;
|
|
218: Result:=233;
|
|
220: Result:=154;
|
|
221: Result:=237;
|
|
223: Result:=225;
|
|
225: Result:=160;
|
|
226: Result:=131;
|
|
228: Result:=132;
|
|
231: Result:=135;
|
|
233: Result:=130;
|
|
235: Result:=137;
|
|
237: Result:=161;
|
|
238: Result:=140;
|
|
243: Result:=162;
|
|
244: Result:=147;
|
|
246: Result:=148;
|
|
247: Result:=246;
|
|
250: Result:=163;
|
|
252: Result:=129;
|
|
253: Result:=236;
|
|
258..259: Result:=Unicode-60;
|
|
260..261: Result:=Unicode-96;
|
|
262: Result:=143;
|
|
263: Result:=134;
|
|
268: Result:=172;
|
|
269: Result:=159;
|
|
270: Result:=210;
|
|
271: Result:=212;
|
|
272: Result:=209;
|
|
273: Result:=208;
|
|
280..281: Result:=Unicode-112;
|
|
282: Result:=183;
|
|
283: Result:=216;
|
|
313..314: Result:=Unicode-168;
|
|
317..318: Result:=Unicode-168;
|
|
321: Result:=157;
|
|
322: Result:=136;
|
|
323..324: Result:=Unicode-96;
|
|
327: Result:=213;
|
|
328: Result:=229;
|
|
336..337: Result:=Unicode-198;
|
|
340: Result:=232;
|
|
341: Result:=234;
|
|
344..345: Result:=Unicode-92;
|
|
346..347: Result:=Unicode-195;
|
|
350: Result:=184;
|
|
351: Result:=173;
|
|
352..353: Result:=Unicode-122;
|
|
354: Result:=221;
|
|
355: Result:=238;
|
|
356..357: Result:=Unicode-201;
|
|
366: Result:=222;
|
|
367: Result:=133;
|
|
368: Result:=235;
|
|
369: Result:=251;
|
|
377: Result:=141;
|
|
378: Result:=171;
|
|
379..380: Result:=Unicode-190;
|
|
381..382: Result:=Unicode-215;
|
|
711: Result:=243;
|
|
728: Result:=244;
|
|
729: Result:=250;
|
|
731: Result:=242;
|
|
733: Result:=241;
|
|
9472: Result:=196;
|
|
9474: Result:=179;
|
|
9484: Result:=218;
|
|
9488: Result:=191;
|
|
9492: Result:=192;
|
|
9496: Result:=217;
|
|
9500: Result:=195;
|
|
9508: Result:=180;
|
|
9516: Result:=194;
|
|
9524: Result:=193;
|
|
9532: Result:=197;
|
|
9552: Result:=205;
|
|
9553: Result:=186;
|
|
9556: Result:=201;
|
|
9559: Result:=187;
|
|
9562: Result:=200;
|
|
9565: Result:=188;
|
|
9568: Result:=204;
|
|
9571: Result:=185;
|
|
9574: Result:=203;
|
|
9577: Result:=202;
|
|
9580: Result:=206;
|
|
9600: Result:=223;
|
|
9604: Result:=220;
|
|
9608: Result:=219;
|
|
9617..9619: Result:=Unicode-9441;
|
|
9632: Result:=254;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToCP866(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
0..127: Result:=Unicode;
|
|
1040..1087 : Result := Unicode-912;
|
|
9617..9619 : Result := Unicode-9441;
|
|
9474 : Result := 179;
|
|
9508 : Result := 180;
|
|
9569 : Result := 181;
|
|
9570 : Result := 182;
|
|
9558 : Result := 183;
|
|
9557 : Result := 184;
|
|
9571 : Result := 185;
|
|
9553 : Result := 186;
|
|
9559 : Result := 187;
|
|
9565 : Result := 188;
|
|
9564 : Result := 189;
|
|
9563 : Result := 190;
|
|
9488 : Result := 191;
|
|
9492 : Result := 192;
|
|
9524 : Result := 193;
|
|
9516 : Result := 194;
|
|
9500 : Result := 195;
|
|
9472 : Result := 196;
|
|
9532 : Result := 197;
|
|
9566 : Result := 198;
|
|
9567 : Result := 199;
|
|
9562 : Result := 200;
|
|
9556 : Result := 201;
|
|
9577 : Result := 202;
|
|
9574 : Result := 203;
|
|
9568 : Result := 204;
|
|
9552 : Result := 205;
|
|
9580 : Result := 206;
|
|
9575 : Result := 207;
|
|
9576 : Result := 208;
|
|
9572 : Result := 209;
|
|
9573 : Result := 210;
|
|
9561 : Result := 211;
|
|
9560 : Result := 212;
|
|
9554 : Result := 213;
|
|
9555 : Result := 214;
|
|
9579 : Result := 215;
|
|
9578 : Result := 216;
|
|
9496 : Result := 217;
|
|
9484 : Result := 218;
|
|
9608 : Result := 219;
|
|
9604 : Result := 220;
|
|
9612 : Result := 221;
|
|
9616 : Result := 222;
|
|
9600 : Result := 223;
|
|
1088..1103 : Result := Unicode-864;
|
|
1025 : Result := 240;
|
|
1105 : Result := 241;
|
|
1028 : Result := 242;
|
|
1108 : Result := 243;
|
|
1031 : Result := 244;
|
|
1111 : Result := 245;
|
|
1038 : Result := 246;
|
|
1118 : Result := 247;
|
|
176 : Result := 248;
|
|
8729 : Result := 249;
|
|
183 : Result := 250;
|
|
8730 : Result := 251;
|
|
8470 : Result := 252;
|
|
164 : Result := 253;
|
|
9632 : Result := 254;
|
|
160 : Result := 255;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToKOI8(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
0..127: Result:=Unicode;
|
|
1040..1041: Result:=Unicode-815;
|
|
1042: Result:=247;
|
|
1043: Result:=231;
|
|
1044..1045: Result:=Unicode-816;
|
|
1046: Result:=246;
|
|
1047: Result:=250;
|
|
1048..1055: Result:=Unicode-815;
|
|
1056..1059: Result:=Unicode-814;
|
|
1060: Result:=230;
|
|
1061: Result:=232;
|
|
1062: Result:=227;
|
|
1063: Result:=254;
|
|
1064: Result:=251;
|
|
1065: Result:=253;
|
|
1067: Result:=249;
|
|
1068: Result:=248;
|
|
1069: Result:=252;
|
|
1070: Result:=224;
|
|
1071: Result:=241;
|
|
1072..1073: Result:=Unicode-879;
|
|
1074: Result:=215;
|
|
1075: Result:=199;
|
|
1076..1077: Result:=Unicode-880;
|
|
1078: Result:=214;
|
|
1079: Result:=218;
|
|
1080..1087: Result:=Unicode-879;
|
|
1088..1091: Result:=Unicode-878;
|
|
1092: Result:=198;
|
|
1093: Result:=200;
|
|
1094: Result:=195;
|
|
1095: Result:=222;
|
|
1096: Result:=219;
|
|
1097: Result:=221;
|
|
1098: Result:=223;
|
|
1099: Result:=217;
|
|
1100: Result:=216;
|
|
1101: Result:=220;
|
|
1102: Result:=192;
|
|
1103: Result:=209;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToKOI8U(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
1025: Result:=179;
|
|
1028: Result:=180;
|
|
1030..1031: Result:=Unicode-848;
|
|
1105: Result:=163;
|
|
1108: Result:=164;
|
|
1110..1111: Result:=Unicode-944;
|
|
1168: Result:=189;
|
|
1169: Result:=173;
|
|
else
|
|
Result:=UnicodeToKOI8(Unicode);
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToKOI8RU(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
1038: Result:=190;
|
|
1118: Result:=174;
|
|
else
|
|
Result:=UnicodeToKOI8U(Unicode);
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToISO_8859_1(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
0..255: Result:=Unicode;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToISO_8859_15(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
0..255: Result:=Unicode;
|
|
8364: Result:=164;
|
|
352: Result:=166;
|
|
353: Result:=168;
|
|
381: Result:=180;
|
|
382: Result:=184;
|
|
338: Result:=188;
|
|
339: Result:=189;
|
|
376: Result:=190;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToISO_8859_2(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
0..127: Result:=Unicode;
|
|
128..160: Result:=Unicode;
|
|
164: Result:=164;
|
|
167..168: Result:=Unicode;
|
|
173: Result:=173;
|
|
176: Result:=176;
|
|
180: Result:=180;
|
|
184: Result:=184;
|
|
193..194: Result:=Unicode;
|
|
196: Result:=196;
|
|
199: Result:=199;
|
|
201: Result:=201;
|
|
203: Result:=203;
|
|
205..206: Result:=Unicode;
|
|
211..212: Result:=Unicode;
|
|
214..215: Result:=Unicode;
|
|
218: Result:=218;
|
|
220..221: Result:=Unicode;
|
|
223: Result:=223;
|
|
225..226: Result:=Unicode;
|
|
228: Result:=228;
|
|
231: Result:=231;
|
|
233: Result:=233;
|
|
235: Result:=235;
|
|
237..238: Result:=Unicode;
|
|
243..244: Result:=Unicode;
|
|
246..247: Result:=Unicode;
|
|
250: Result:=250;
|
|
252..253: Result:=Unicode;
|
|
258: Result:=195;
|
|
259: Result:=227;
|
|
260: Result:=161;
|
|
261: Result:=177;
|
|
262: Result:=198;
|
|
263: Result:=230;
|
|
268: Result:=200;
|
|
269: Result:=232;
|
|
270: Result:=207;
|
|
271: Result:=239;
|
|
272: Result:=208;
|
|
273: Result:=240;
|
|
280: Result:=202;
|
|
281: Result:=234;
|
|
282: Result:=204;
|
|
283: Result:=236;
|
|
313: Result:=197;
|
|
314: Result:=229;
|
|
317: Result:=165;
|
|
318: Result:=181;
|
|
321: Result:=163;
|
|
322: Result:=179;
|
|
323: Result:=209;
|
|
324: Result:=241;
|
|
327: Result:=210;
|
|
328: Result:=242;
|
|
336: Result:=213;
|
|
337: Result:=245;
|
|
340: Result:=192;
|
|
341: Result:=224;
|
|
344: Result:=216;
|
|
345: Result:=248;
|
|
346: Result:=166;
|
|
347: Result:=182;
|
|
350: Result:=170;
|
|
351: Result:=186;
|
|
352: Result:=169;
|
|
353: Result:=185;
|
|
354: Result:=222;
|
|
355: Result:=254;
|
|
356: Result:=171;
|
|
357: Result:=187;
|
|
366: Result:=217;
|
|
367: Result:=249;
|
|
368: Result:=219;
|
|
369: Result:=251;
|
|
377: Result:=172;
|
|
378: Result:=188;
|
|
379: Result:=175;
|
|
380: Result:=191;
|
|
381: Result:=174;
|
|
382: Result:=190;
|
|
711: Result:=183;
|
|
728: Result:=162;
|
|
729: Result:=255;
|
|
731: Result:=178;
|
|
733: Result:=189;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToMacintosh(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
0..127: Result:=Unicode;
|
|
160: Result:=202;
|
|
161: Result:=193;
|
|
162..163: Result:=Unicode;
|
|
165: Result:=180;
|
|
167: Result:=164;
|
|
168: Result:=172;
|
|
169: Result:=169;
|
|
170: Result:=187;
|
|
171: Result:=199;
|
|
172: Result:=194;
|
|
174: Result:=168;
|
|
175: Result:=248;
|
|
176: Result:=161;
|
|
177: Result:=177;
|
|
180: Result:=171;
|
|
181: Result:=181;
|
|
182: Result:=166;
|
|
183: Result:=225;
|
|
184: Result:=252;
|
|
186: Result:=188;
|
|
187: Result:=200;
|
|
191: Result:=192;
|
|
192: Result:=203;
|
|
193: Result:=231;
|
|
194: Result:=229;
|
|
195: Result:=204;
|
|
196..197: Result:=Unicode-68;
|
|
198: Result:=174;
|
|
199: Result:=130;
|
|
200: Result:=233;
|
|
201: Result:=131;
|
|
202: Result:=230;
|
|
203: Result:=232;
|
|
204: Result:=237;
|
|
205..207: Result:=Unicode+29;
|
|
209: Result:=132;
|
|
210: Result:=241;
|
|
211..212: Result:=Unicode+27;
|
|
213: Result:=205;
|
|
214: Result:=133;
|
|
216: Result:=175;
|
|
217: Result:=244;
|
|
218..219: Result:=Unicode+24;
|
|
220: Result:=134;
|
|
223: Result:=167;
|
|
224: Result:=136;
|
|
225: Result:=135;
|
|
226: Result:=137;
|
|
227: Result:=139;
|
|
228: Result:=138;
|
|
229: Result:=140;
|
|
230: Result:=190;
|
|
231: Result:=141;
|
|
232: Result:=143;
|
|
233: Result:=142;
|
|
234..235: Result:=Unicode-90;
|
|
236: Result:=147;
|
|
237: Result:=146;
|
|
238..239: Result:=Unicode-90;
|
|
241: Result:=150;
|
|
242: Result:=152;
|
|
243: Result:=151;
|
|
244: Result:=153;
|
|
245: Result:=155;
|
|
246: Result:=154;
|
|
247: Result:=214;
|
|
248: Result:=191;
|
|
249: Result:=157;
|
|
250: Result:=156;
|
|
251..252: Result:=Unicode-93;
|
|
255: Result:=216;
|
|
305: Result:=245;
|
|
338..339: Result:=Unicode-132;
|
|
376: Result:=217;
|
|
402: Result:=196;
|
|
710: Result:=246;
|
|
711: Result:=255;
|
|
728..730: Result:=Unicode-479;
|
|
731: Result:=254;
|
|
732: Result:=247;
|
|
733: Result:=253;
|
|
916: Result:=198;
|
|
937: Result:=189;
|
|
960: Result:=185;
|
|
8211..8212: Result:=Unicode-8003;
|
|
8216..8217: Result:=Unicode-8004;
|
|
8218: Result:=226;
|
|
8220..8221: Result:=Unicode-8010;
|
|
8222: Result:=227;
|
|
8224: Result:=160;
|
|
8225: Result:=224;
|
|
8226: Result:=165;
|
|
8230: Result:=201;
|
|
8240: Result:=228;
|
|
8249..8250: Result:=Unicode-8029;
|
|
8260: Result:=218;
|
|
8364: Result:=219;
|
|
8482: Result:=170;
|
|
8706: Result:=182;
|
|
8719: Result:=184;
|
|
8721: Result:=183;
|
|
8730: Result:=195;
|
|
8734: Result:=176;
|
|
8747: Result:=186;
|
|
8776: Result:=197;
|
|
8800: Result:=173;
|
|
8804..8805: Result:=Unicode-8626;
|
|
9674: Result:=215;
|
|
57374: Result:=240;
|
|
64257..64258: Result:=Unicode-64035;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
{$endif}
|
|
|
|
function UnicodeToCP1250(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
0..127,129,131,136,144,152: Result:=Unicode;
|
|
160: Result:=160;
|
|
164: Result:=164;
|
|
166..169: Result:=Unicode;
|
|
171..174: Result:=Unicode;
|
|
176..177: Result:=Unicode;
|
|
180..184: Result:=Unicode;
|
|
187: Result:=187;
|
|
193..194: Result:=Unicode;
|
|
196: Result:=196;
|
|
199: Result:=199;
|
|
201: Result:=201;
|
|
203: Result:=203;
|
|
205..206: Result:=Unicode;
|
|
211..212: Result:=Unicode;
|
|
214..215: Result:=Unicode;
|
|
218: Result:=218;
|
|
220..221: Result:=Unicode;
|
|
223: Result:=223;
|
|
225..226: Result:=Unicode;
|
|
228: Result:=228;
|
|
231: Result:=231;
|
|
233: Result:=233;
|
|
235: Result:=235;
|
|
237..238: Result:=Unicode;
|
|
243..244: Result:=Unicode;
|
|
246..247: Result:=Unicode;
|
|
250: Result:=250;
|
|
252..253: Result:=Unicode;
|
|
258: Result:=195;
|
|
259: Result:=227;
|
|
260: Result:=165;
|
|
261: Result:=185;
|
|
262: Result:=198;
|
|
263: Result:=230;
|
|
268: Result:=200;
|
|
269: Result:=232;
|
|
270: Result:=207;
|
|
271: Result:=239;
|
|
272: Result:=208;
|
|
273: Result:=240;
|
|
280: Result:=202;
|
|
281: Result:=234;
|
|
282: Result:=204;
|
|
283: Result:=236;
|
|
313: Result:=197;
|
|
314: Result:=229;
|
|
317: Result:=188;
|
|
318: Result:=190;
|
|
321: Result:=163;
|
|
322: Result:=179;
|
|
323: Result:=209;
|
|
324: Result:=241;
|
|
327: Result:=210;
|
|
328: Result:=242;
|
|
336: Result:=213;
|
|
337: Result:=245;
|
|
340: Result:=192;
|
|
341: Result:=224;
|
|
344: Result:=216;
|
|
345: Result:=248;
|
|
346: Result:=140;
|
|
347: Result:=156;
|
|
350: Result:=170;
|
|
351: Result:=186;
|
|
352: Result:=138;
|
|
353: Result:=154;
|
|
354: Result:=222;
|
|
355: Result:=254;
|
|
356: Result:=141;
|
|
357: Result:=157;
|
|
366: Result:=217;
|
|
367: Result:=249;
|
|
368: Result:=219;
|
|
369: Result:=251;
|
|
377: Result:=143;
|
|
378: Result:=159;
|
|
379: Result:=175;
|
|
380: Result:=191;
|
|
381: Result:=142;
|
|
382: Result:=158;
|
|
711: Result:=161;
|
|
728: Result:=162;
|
|
729: Result:=255;
|
|
731: Result:=178;
|
|
733: Result:=189;
|
|
8211..8212: Result:=Unicode-8061;
|
|
8216..8217: Result:=Unicode-8071;
|
|
8218: Result:=130;
|
|
8220..8221: Result:=Unicode-8073;
|
|
8222: Result:=132;
|
|
8224..8225: Result:=Unicode-8090;
|
|
8226: Result:=149;
|
|
8230: Result:=133;
|
|
8240: Result:=137;
|
|
8249: Result:=139;
|
|
8250: Result:=155;
|
|
8364: Result:=128;
|
|
8482: Result:=153;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToCP1251(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
0..127,152: Result:=Unicode;
|
|
160: Result:=160;
|
|
164: Result:=164;
|
|
166..167: Result:=Unicode;
|
|
169: Result:=169;
|
|
171..174: Result:=Unicode;
|
|
176..177: Result:=Unicode;
|
|
181..183: Result:=Unicode;
|
|
187: Result:=187;
|
|
1025: Result:=168;
|
|
1026..1027: Result:=Unicode-898;
|
|
1028: Result:=170;
|
|
1029: Result:=189;
|
|
1030: Result:=178;
|
|
1031: Result:=175;
|
|
1032: Result:=163;
|
|
1033: Result:=138;
|
|
1034: Result:=140;
|
|
1035: Result:=142;
|
|
1036: Result:=141;
|
|
1038: Result:=161;
|
|
1039: Result:=143;
|
|
1040..1103: Result:=Unicode-848;
|
|
1105: Result:=184;
|
|
1106: Result:=144;
|
|
1107: Result:=131;
|
|
1108: Result:=186;
|
|
1109: Result:=190;
|
|
1110: Result:=179;
|
|
1111: Result:=191;
|
|
1112: Result:=188;
|
|
1113: Result:=154;
|
|
1114: Result:=156;
|
|
1115: Result:=158;
|
|
1116: Result:=157;
|
|
1118: Result:=162;
|
|
1119: Result:=159;
|
|
1168: Result:=165;
|
|
1169: Result:=180;
|
|
8211..8212: Result:=Unicode-8061;
|
|
8216..8217: Result:=Unicode-8071;
|
|
8218: Result:=130;
|
|
8220..8221: Result:=Unicode-8073;
|
|
8222: Result:=132;
|
|
8224..8225: Result:=Unicode-8090;
|
|
8226: Result:=149;
|
|
8230: Result:=133;
|
|
8240: Result:=137;
|
|
8249: Result:=139;
|
|
8250: Result:=155;
|
|
8364: Result:=136;
|
|
8470: Result:=185;
|
|
8482: Result:=153;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToCP1252(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
0..127,129,141,143,144,157: Result:=Unicode;
|
|
160..255: Result:=Unicode;
|
|
338: Result:=140;
|
|
339: Result:=156;
|
|
352: Result:=138;
|
|
353: Result:=154;
|
|
376: Result:=159;
|
|
381: Result:=142;
|
|
382: Result:=158;
|
|
402: Result:=131;
|
|
710: Result:=136;
|
|
732: Result:=152;
|
|
8211..8212: Result:=Unicode-8061;
|
|
8216..8217: Result:=Unicode-8071;
|
|
8218: Result:=130;
|
|
8220..8221: Result:=Unicode-8073;
|
|
8222: Result:=132;
|
|
8224..8225: Result:=Unicode-8090;
|
|
8226: Result:=149;
|
|
8230: Result:=133;
|
|
8240: Result:=137;
|
|
8249: Result:=139;
|
|
8250: Result:=155;
|
|
8364: Result:=128;
|
|
8482: Result:=153;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToCP1253(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
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;
|
|
176..179: Result:=Unicode;
|
|
181..183: Result:=Unicode;
|
|
187: Result:=187;
|
|
189: Result:=189;
|
|
402: Result:=131;
|
|
900: Result:=180;
|
|
901..902: Result:=Unicode-740;
|
|
904..906: Result:=Unicode-720;
|
|
908: Result:=188;
|
|
910..975: Result:=Unicode-720;
|
|
8211..8212: Result:=Unicode-8061;
|
|
8213: Result:=175;
|
|
8216..8217: Result:=Unicode-8071;
|
|
8218: Result:=130;
|
|
8220..8221: Result:=Unicode-8073;
|
|
8222: Result:=132;
|
|
8224..8225: Result:=Unicode-8090;
|
|
8226: Result:=149;
|
|
8230: Result:=133;
|
|
8240: Result:=137;
|
|
8249: Result:=139;
|
|
8250: Result:=155;
|
|
8364: Result:=128;
|
|
8482: Result:=153;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToCP1254(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
0..127,129,141,142,143,144,157,158: Result:=Unicode;
|
|
160..207: Result:=Unicode;
|
|
209..220: Result:=Unicode;
|
|
223..239: Result:=Unicode;
|
|
241..252: Result:=Unicode;
|
|
255: Result:=255;
|
|
286: Result:=208;
|
|
287: Result:=240;
|
|
304: Result:=221;
|
|
305: Result:=253;
|
|
338: Result:=140;
|
|
339: Result:=156;
|
|
350: Result:=222;
|
|
351: Result:=254;
|
|
352: Result:=138;
|
|
353: Result:=154;
|
|
376: Result:=159;
|
|
402: Result:=131;
|
|
710: Result:=136;
|
|
732: Result:=152;
|
|
8211..8212: Result:=Unicode-8061;
|
|
8216..8217: Result:=Unicode-8071;
|
|
8218: Result:=130;
|
|
8220..8221: Result:=Unicode-8073;
|
|
8222: Result:=132;
|
|
8224..8225: Result:=Unicode-8090;
|
|
8226: Result:=149;
|
|
8230: Result:=133;
|
|
8240: Result:=137;
|
|
8249: Result:=139;
|
|
8250: Result:=155;
|
|
8364: Result:=128;
|
|
8482: Result:=153;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToCP1255(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
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;
|
|
215: Result:=170;
|
|
247: Result:=186;
|
|
402: Result:=131;
|
|
710: Result:=136;
|
|
732: Result:=152;
|
|
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;
|
|
8218: Result:=130;
|
|
8220..8221: Result:=Unicode-8073;
|
|
8222: Result:=132;
|
|
8224..8225: Result:=Unicode-8090;
|
|
8226: Result:=149;
|
|
8230: Result:=133;
|
|
8240: Result:=137;
|
|
8249: Result:=139;
|
|
8250: Result:=155;
|
|
8362: Result:=164;
|
|
8364: Result:=128;
|
|
8482: Result:=153;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToCP1257(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
0..127: Result:=Unicode;
|
|
129: Result:=129;
|
|
131: Result:=131;
|
|
136: Result:=136;
|
|
138: Result:=138;
|
|
140: Result:=140;
|
|
144: Result:=144;
|
|
152: Result:=152;
|
|
154: Result:=154;
|
|
156: Result:=156;
|
|
159..167: Result:=Unicode;
|
|
168: Result:=141;
|
|
169: Result:=169;
|
|
171..174: Result:=Unicode;
|
|
175: Result:=157;
|
|
176..183: Result:=Unicode;
|
|
184: Result:=143;
|
|
185: Result:=185;
|
|
187..190: Result:=Unicode;
|
|
196..197: Result:=Unicode;
|
|
198: Result:=175;
|
|
201: Result:=201;
|
|
211: Result:=211;
|
|
213..215: Result:=Unicode;
|
|
216: Result:=168;
|
|
220: Result:=220;
|
|
223: Result:=223;
|
|
228..229: Result:=Unicode;
|
|
230: Result:=191;
|
|
233: Result:=233;
|
|
243: Result:=243;
|
|
245..247: Result:=Unicode;
|
|
248: Result:=184;
|
|
252: Result:=252;
|
|
256: Result:=194;
|
|
257: Result:=226;
|
|
260: Result:=192;
|
|
261: Result:=224;
|
|
262: Result:=195;
|
|
263: Result:=227;
|
|
268: Result:=200;
|
|
269: Result:=232;
|
|
274: Result:=199;
|
|
275: Result:=231;
|
|
278: Result:=203;
|
|
279: Result:=235;
|
|
280: Result:=198;
|
|
281: Result:=230;
|
|
290: Result:=204;
|
|
291: Result:=236;
|
|
298: Result:=206;
|
|
299: Result:=238;
|
|
302: Result:=193;
|
|
303: Result:=225;
|
|
310: Result:=205;
|
|
311: Result:=237;
|
|
315: Result:=207;
|
|
316: Result:=239;
|
|
321: Result:=217;
|
|
322: Result:=249;
|
|
323: Result:=209;
|
|
324: Result:=241;
|
|
325: Result:=210;
|
|
326: Result:=242;
|
|
332: Result:=212;
|
|
333: Result:=244;
|
|
342: Result:=170;
|
|
343: Result:=186;
|
|
346: Result:=218;
|
|
347: Result:=250;
|
|
352: Result:=208;
|
|
353: Result:=240;
|
|
362: Result:=219;
|
|
363: Result:=251;
|
|
370: Result:=216;
|
|
371: Result:=248;
|
|
377: Result:=202;
|
|
378: Result:=234;
|
|
379: Result:=221;
|
|
380: Result:=253;
|
|
381: Result:=222;
|
|
382: Result:=254;
|
|
711: Result:=142;
|
|
729: Result:=255;
|
|
731: Result:=158;
|
|
8211..8212: Result:=Unicode-8061;
|
|
8216..8217: Result:=Unicode-8071;
|
|
8218: Result:=130;
|
|
8220..8221: Result:=Unicode-8073;
|
|
8222: Result:=132;
|
|
8224..8225: Result:=Unicode-8090;
|
|
8226: Result:=149;
|
|
8230: Result:=133;
|
|
8240: Result:=137;
|
|
8249: Result:=139;
|
|
8250: Result:=155;
|
|
8364: Result:=128;
|
|
8482: Result:=153;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToCP1258(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
0..127: Result:=Unicode;
|
|
129: Result:=129;
|
|
138: Result:=138;
|
|
141..144: Result:=Unicode;
|
|
154: Result:=154;
|
|
157..158: Result:=Unicode;
|
|
160..194: Result:=Unicode;
|
|
196..203: Result:=Unicode;
|
|
205..207: Result:=Unicode;
|
|
209: Result:=209;
|
|
211..212: Result:=Unicode;
|
|
214..220: Result:=Unicode;
|
|
223..226: Result:=Unicode;
|
|
228..235: Result:=Unicode;
|
|
237..239: Result:=Unicode;
|
|
241: Result:=241;
|
|
243..244: Result:=Unicode;
|
|
246..252: Result:=Unicode;
|
|
255: Result:=255;
|
|
258: Result:=195;
|
|
259: Result:=227;
|
|
272: Result:=208;
|
|
273: Result:=240;
|
|
338: Result:=140;
|
|
339: Result:=156;
|
|
376: Result:=159;
|
|
402: Result:=131;
|
|
416: Result:=213;
|
|
417: Result:=245;
|
|
431: Result:=221;
|
|
432: Result:=253;
|
|
710: Result:=136;
|
|
732: Result:=152;
|
|
768: Result:=204;
|
|
769: Result:=236;
|
|
771: Result:=222;
|
|
777: Result:=210;
|
|
803: Result:=242;
|
|
8211..8212: Result:=Unicode-8061;
|
|
8216..8217: Result:=Unicode-8071;
|
|
8218: Result:=130;
|
|
8220..8221: Result:=Unicode-8073;
|
|
8222: Result:=132;
|
|
8224..8225: Result:=Unicode-8090;
|
|
8226: Result:=149;
|
|
8230: Result:=133;
|
|
8240: Result:=137;
|
|
8249: Result:=139;
|
|
8250: Result:=155;
|
|
8363: Result:=254;
|
|
8364: Result:=128;
|
|
8482: Result:=153;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
function UnicodeToCP874(Unicode: cardinal): integer;
|
|
begin
|
|
case Unicode of
|
|
0..127: Result:=Unicode;
|
|
129..132: Result:=Unicode;
|
|
134..144: Result:=Unicode;
|
|
152..160: Result:=Unicode;
|
|
219..222: Result:=Unicode;
|
|
252..255: Result:=Unicode;
|
|
3585..3642: Result:=Unicode-3424;
|
|
3647..3675: Result:=Unicode-3424;
|
|
8211..8212: Result:=Unicode-8061;
|
|
8216..8217: Result:=Unicode-8071;
|
|
8220..8221: Result:=Unicode-8073;
|
|
8226: Result:=149;
|
|
8230: Result:=133;
|
|
8364: Result:=128;
|
|
else Result:=-1;
|
|
end;
|
|
end;
|
|
|
|
//{$if FPC_FULLVERSION >= 20701}
|
|
{$IFDEF FPC_HAS_CPSTRING}
|
|
procedure InternalUTF8ToCP(const s: string; TargetCodePage: TSystemCodePage;
|
|
SetTargetCodePage: boolean;
|
|
const UTF8CharConvFunc: TUnicodeToCharID;
|
|
out TheResult: RawByteString); inline;
|
|
begin
|
|
if not Assigned(UTF8CharConvFunc) then
|
|
begin
|
|
TheResult:=s;
|
|
SetCodePage(TheResult, TargetCodePage, True);
|
|
if not SetTargetCodePage then
|
|
SetCodePage(TheResult, CP_ACP, False);
|
|
end else begin
|
|
TheResult:=UTF8ToSingleByte(s,UTF8CharConvFunc);
|
|
if SetTargetCodePage then
|
|
SetCodePage(TheResult, TargetCodePage, False);
|
|
end;
|
|
end;
|
|
|
|
function UTF8ToISO_8859_1(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
InternalUTF8ToCP(s,28591,SetTargetCodePage,{$IfDef UseSystemCPConv}nil{$else}@UnicodeToISO_8859_1{$endif},Result);
|
|
end;
|
|
|
|
function UTF8ToISO_8859_2(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
InternalUTF8ToCP(s,28592,SetTargetCodePage,{$IfDef UseSystemCPConv}nil{$else}@UnicodeToISO_8859_2{$endif},Result);
|
|
end;
|
|
|
|
function UTF8ToISO_8859_15(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
InternalUTF8ToCP(s,28605,SetTargetCodePage,{$IfDef UseSystemCPConv}nil{$else}@UnicodeToISO_8859_15{$endif},Result);
|
|
end;
|
|
|
|
function UTF8ToCP1250(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
// system conversion fails for character #129 -> using table
|
|
InternalUTF8ToCP(s,1250,SetTargetCodePage,@UnicodeToCP1250,Result);
|
|
end;
|
|
|
|
function UTF8ToCP1251(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
// system conversion fails for character #152 -> using table
|
|
InternalUTF8ToCP(s,1251,SetTargetCodePage,@UnicodeToCP1251,Result);
|
|
end;
|
|
|
|
function UTF8ToCP1252(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
// system conversion fails for character #128 -> using table
|
|
InternalUTF8ToCP(s,1252,SetTargetCodePage,@UnicodeToCP1252,Result);
|
|
end;
|
|
|
|
function UTF8ToCP1253(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
// system conversion fails for character #129 -> using table
|
|
InternalUTF8ToCP(s,1253,SetTargetCodePage,@UnicodeToCP1253,Result);
|
|
end;
|
|
|
|
function UTF8ToCP1254(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
// system conversion fails for character #129 -> using table
|
|
InternalUTF8ToCP(s,1254,SetTargetCodePage,@UnicodeToCP1254,Result);
|
|
end;
|
|
|
|
function UTF8ToCP1255(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
// system conversion fails for character #129 -> using table
|
|
InternalUTF8ToCP(s,1255,SetTargetCodePage,@UnicodeToCP1255,Result);
|
|
end;
|
|
|
|
function UTF8ToCP1256(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
InternalUTF8ToCP(s,1256,SetTargetCodePage,{$IfDef UseSystemCPConv}nil{$else}@UnicodeToCP1256{$endif},Result);
|
|
end;
|
|
|
|
function UTF8ToCP1257(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
// system conversion fails for character #129 -> using table
|
|
InternalUTF8ToCP(s,1257,SetTargetCodePage,@UnicodeToCP1257,Result);
|
|
end;
|
|
|
|
function UTF8ToCP1258(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
// system conversion fails for character #129 -> using table
|
|
InternalUTF8ToCP(s,1258,SetTargetCodePage,@UnicodeToCP1258,Result);
|
|
end;
|
|
|
|
function UTF8ToCP437(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
InternalUTF8ToCP(s,437,SetTargetCodePage,{$IfDef UseSystemCPConv}nil{$else}@UnicodeToCP437{$endif},Result);
|
|
end;
|
|
|
|
function UTF8ToCP850(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
InternalUTF8ToCP(s,850,SetTargetCodePage,{$IfDef UseSystemCPConv}nil{$else}@UnicodeToCP850{$endif},Result);
|
|
end;
|
|
|
|
function UTF8ToCP852(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
InternalUTF8ToCP(s,852,SetTargetCodePage,{$IfDef UseSystemCPConv}nil{$else}@UnicodeToCP852{$endif},Result);
|
|
end;
|
|
|
|
function UTF8ToCP866(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
InternalUTF8ToCP(s,866,SetTargetCodePage,{$IfDef UseSystemCPConv}nil{$else}@UnicodeToCP866{$endif},Result);
|
|
end;
|
|
|
|
function UTF8ToCP874(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
// system conversion fails for character #129 -> using table
|
|
InternalUTF8ToCP(s,874,SetTargetCodePage,@UnicodeToCP874,Result);
|
|
end;
|
|
|
|
function UTF8ToKOI8(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
InternalUTF8ToCP(s,20866,SetTargetCodePage,{$IfDef UseSystemCPConv}nil{$else}@UnicodeToKOI8{$endif},Result);
|
|
end;
|
|
|
|
function UTF8ToKOI8U(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
InternalUTF8ToCP(s,21866,SetTargetCodePage,{$IfDef UseSystemCPConv}nil{$else}@UnicodeToKOI8U{$endif},Result);
|
|
end;
|
|
|
|
function UTF8ToKOI8RU(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
InternalUTF8ToCP(s,21866,SetTargetCodePage,{$IfDef UseSystemCPConv}nil{$else}@UnicodeToKOI8RU{$endif},Result);
|
|
end;
|
|
|
|
function UTF8ToMacintosh(const s: string; SetTargetCodePage: boolean): RawByteString;
|
|
begin
|
|
InternalUTF8ToCP(s,10000,SetTargetCodePage,{$IfDef UseSystemCPConv}nil{$else}@UnicodeToMacintosh{$endif},Result);
|
|
end;
|
|
{$ELSE}
|
|
function UTF8ToISO_8859_1(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToISO_8859_1);
|
|
end;
|
|
|
|
function UTF8ToISO_8859_15(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToISO_8859_15);
|
|
end;
|
|
|
|
function UTF8ToISO_8859_2(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToISO_8859_2);
|
|
end;
|
|
|
|
function UTF8ToCP1250(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToCP1250);
|
|
end;
|
|
|
|
function UTF8ToCP1251(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToCP1251);
|
|
end;
|
|
|
|
function UTF8ToCP1252(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToCP1252);
|
|
end;
|
|
|
|
function UTF8ToCP1253(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToCP1253);
|
|
end;
|
|
|
|
function UTF8ToCP1254(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToCP1254);
|
|
end;
|
|
|
|
function UTF8ToCP1255(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToCP1255);
|
|
end;
|
|
|
|
function UTF8ToCP1256(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToCP1256);
|
|
end;
|
|
|
|
function UTF8ToCP1257(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToCP1257);
|
|
end;
|
|
|
|
function UTF8ToCP1258(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToCP1258);
|
|
end;
|
|
|
|
function UTF8ToCP437(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToCP437);
|
|
end;
|
|
|
|
function UTF8ToCP850(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToCP850);
|
|
end;
|
|
|
|
function UTF8ToCP852(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToCP852);
|
|
end;
|
|
|
|
function UTF8ToCP866(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToCP866);
|
|
end;
|
|
|
|
function UTF8ToCP874(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToCP874);
|
|
end;
|
|
|
|
function UTF8ToKOI8(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToKOI8);
|
|
end;
|
|
|
|
function UTF8ToKOI8U(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToKOI8U);
|
|
end;
|
|
|
|
function UTF8ToKOI8RU(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToKOI8RU);
|
|
end;
|
|
|
|
function UTF8ToMacintosh(const s: string): string;
|
|
begin
|
|
Result:=UTF8ToSingleByte(s,@UnicodeToMacintosh);
|
|
end;
|
|
{$ENDIF}
|
|
|
|
function UTF8ToSingleByte(const s: string;
|
|
const UTF8CharConvFunc: TUnicodeToCharID): string;
|
|
var
|
|
len: Integer;
|
|
Src: PChar;
|
|
Dest: PChar;
|
|
c: Char;
|
|
Unicode: LongWord;
|
|
CharLen: integer;
|
|
i: integer;
|
|
begin
|
|
if s='' then begin
|
|
Result:='';
|
|
exit;
|
|
end;
|
|
len:=length(s);
|
|
SetLength(Result,len);
|
|
Src:=PChar(s);
|
|
Dest:=PChar(Result);
|
|
while len>0 do begin
|
|
c:=Src^;
|
|
if c<#128 then begin
|
|
Dest^:=c;
|
|
inc(Dest);
|
|
inc(Src);
|
|
dec(len);
|
|
end else begin
|
|
Unicode:=UTF8CharacterToUnicode(Src,CharLen);
|
|
inc(Src,CharLen);
|
|
dec(len,CharLen);
|
|
i:=UTF8CharConvFunc(Unicode);
|
|
//writeln('UTF8ToSingleByte Unicode=',Unicode,' CharLen=',CharLen,' c="',copy(s,Src-PChar(s)+1-CharLen,CharLen),'" i=',i);
|
|
if i>=0 then begin
|
|
Dest^:=chr(i);
|
|
inc(Dest);
|
|
end;
|
|
end;
|
|
end;
|
|
SetLength(Result,Dest-PChar(Result));
|
|
end;
|
|
|
|
function UTF8ToUCS2LE(const s: string): string;
|
|
var
|
|
len: Integer;
|
|
Src: PChar;
|
|
Dest: PWord;
|
|
c: Char;
|
|
Unicode: LongWord;
|
|
CharLen: integer;
|
|
begin
|
|
if s='' then begin
|
|
Result:='';
|
|
exit;
|
|
end;
|
|
len:=length(s);
|
|
SetLength(Result,len*2);
|
|
Src:=PChar(s);
|
|
Dest:=PWord(Pointer(Result));
|
|
while len>0 do begin
|
|
c:=Src^;
|
|
if c<#128 then begin
|
|
Dest^:=NtoLE(Word(ord(c)));
|
|
inc(Dest);
|
|
inc(Src);
|
|
dec(len);
|
|
end else begin
|
|
Unicode:=UTF8CharacterToUnicode(Src,CharLen);
|
|
inc(Src,CharLen);
|
|
dec(len,CharLen);
|
|
if Unicode<=$ffff then begin
|
|
Dest^:=NtoLE(Word(Unicode));
|
|
inc(Dest);
|
|
end;
|
|
end;
|
|
end;
|
|
len:={%H-}PtrUInt(Dest)-PtrUInt(Result);
|
|
if len>length(Result) then
|
|
raise Exception.Create('');
|
|
SetLength(Result,len);
|
|
end;
|
|
|
|
function UTF8ToUCS2BE(const s: string): string;
|
|
var
|
|
len: Integer;
|
|
Src: PChar;
|
|
Dest: PWord;
|
|
c: Char;
|
|
Unicode: LongWord;
|
|
CharLen: integer;
|
|
begin
|
|
if s='' then begin
|
|
Result:='';
|
|
exit;
|
|
end;
|
|
len:=length(s);
|
|
SetLength(Result,len*2);
|
|
Src:=PChar(s);
|
|
Dest:=PWord(Pointer(Result));
|
|
while len>0 do begin
|
|
c:=Src^;
|
|
if c<#128 then begin
|
|
Dest^:=NtoBE(Word(ord(c)));
|
|
inc(Dest);
|
|
inc(Src);
|
|
dec(len);
|
|
end else begin
|
|
Unicode:=UTF8CharacterToUnicode(Src,CharLen);
|
|
inc(Src,CharLen);
|
|
dec(len,CharLen);
|
|
if Unicode<=$ffff then begin
|
|
Dest^:=NtoBE(Word(Unicode));
|
|
inc(Dest);
|
|
end;
|
|
end;
|
|
end;
|
|
len:={%H-}PtrUInt(Dest)-PtrUInt(Result);
|
|
if len>length(Result) then
|
|
raise Exception.Create('');
|
|
SetLength(Result,len);
|
|
end;
|
|
|
|
procedure GetSupportedEncodings(List: TStrings);
|
|
begin
|
|
List.Add('UTF-8');
|
|
List.Add('UTF-8BOM');
|
|
List.Add('Ansi');
|
|
|
|
List.Add(UpperCase(EncodingCP1250));
|
|
List.Add(UpperCase(EncodingCP1251));
|
|
List.Add(UpperCase(EncodingCP1252));
|
|
List.Add(UpperCase(EncodingCP1253));
|
|
List.Add(UpperCase(EncodingCP1254));
|
|
List.Add(UpperCase(EncodingCP1255));
|
|
List.Add(UpperCase(EncodingCP1256));
|
|
List.Add(UpperCase(EncodingCP1257));
|
|
List.Add(UpperCase(EncodingCP1258));
|
|
List.Add(UpperCase(EncodingCP437));
|
|
List.Add(UpperCase(EncodingCP850));
|
|
List.Add(UpperCase(EncodingCP852));
|
|
List.Add(UpperCase(EncodingCP866));
|
|
List.Add(UpperCase(EncodingCP874));
|
|
|
|
{$IFnDEF DisableAsianCodePages}
|
|
List.Add(UpperCase(EncodingCP932));
|
|
List.Add(UpperCase(EncodingCP936));
|
|
List.Add(UpperCase(EncodingCP949));
|
|
List.Add(UpperCase(EncodingCP950));
|
|
{$ENDIF}
|
|
|
|
List.Add('ISO-8859-1');
|
|
List.Add('ISO-8859-2');
|
|
List.Add('ISO-8859-15');
|
|
|
|
List.Add('KOI-8');
|
|
List.Add('Macintosh');
|
|
|
|
// UCS2 are less common, list them last
|
|
List.Add('UCS-2LE');
|
|
List.Add('UCS-2BE');
|
|
end;
|
|
|
|
function GuessEncoding(const s: string): string;
|
|
|
|
function CompareI(p1, p2: PChar; Count: integer): boolean;
|
|
var
|
|
i: Integer;
|
|
Chr1: Byte;
|
|
Chr2: Byte;
|
|
begin
|
|
for i:=1 to Count do begin
|
|
Chr1 := byte(p1^);
|
|
Chr2 := byte(p2^);
|
|
if Chr1<>Chr2 then begin
|
|
if Chr1 in [97..122] then
|
|
dec(Chr1,32);
|
|
if Chr2 in [97..122] then
|
|
dec(Chr2,32);
|
|
if Chr1<>Chr2 then exit(false);
|
|
end;
|
|
inc(p1);
|
|
inc(p2);
|
|
end;
|
|
Result:=true;
|
|
end;
|
|
|
|
{$IFDEF VerboseIDEEncoding}
|
|
function PosToStr(p: integer): string;
|
|
var
|
|
y: Integer;
|
|
x: Integer;
|
|
i: Integer;
|
|
begin
|
|
y:=1;
|
|
x:=1;
|
|
i:=1;
|
|
while (i<=length(s)) and (i<p) do begin
|
|
if s[i] in [#10,#13] then begin
|
|
inc(i);
|
|
x:=1;
|
|
inc(y);
|
|
if (i<=length(s)) and (s[i] in [#10,#13]) and (s[i]<>s[i-1]) then
|
|
inc(i);
|
|
end else begin
|
|
inc(i);
|
|
inc(x);
|
|
end;
|
|
end;
|
|
Result:='x='+IntToStr(x)+',y='+IntToStr(y);
|
|
end;
|
|
{$ENDIF}
|
|
|
|
var
|
|
l: Integer;
|
|
p: PChar;
|
|
EndPos: PChar;
|
|
i: LongInt;
|
|
begin
|
|
l:=length(s);
|
|
if l=0 then begin
|
|
Result:='';
|
|
exit;
|
|
end;
|
|
p:=PChar(s);
|
|
|
|
// try UTF-8 BOM (Byte Order Mark)
|
|
if CompareI(p,UTF8BOM,3) then begin
|
|
Result:=EncodingUTF8BOM;
|
|
exit;
|
|
end;
|
|
|
|
// try ucs-2le BOM FF FE (ToDo: nowadays this BOM is UTF16LE)
|
|
if (p^=#$FF) and (p[1]=#$FE) then begin
|
|
Result:=EncodingUCS2LE;
|
|
exit;
|
|
end;
|
|
|
|
// try ucs-2be BOM FE FF (ToDo: nowadays this BOM is UTF16BE)
|
|
if (p^=#$FE) and (p[1]=#$FF) then begin
|
|
Result:=EncodingUCS2BE;
|
|
exit;
|
|
end;
|
|
|
|
// try {%encoding eee}
|
|
if CompareI(p,'{%encoding ',11) then begin
|
|
inc(p,length('{%encoding '));
|
|
while (p^ in [' ',#9]) do inc(p);
|
|
EndPos:=p;
|
|
while not (EndPos^ in ['}',' ',#9,#0]) do inc(EndPos);
|
|
Result:=NormalizeEncoding(copy(s,p-PChar(s)+1,EndPos-p));
|
|
exit;
|
|
end;
|
|
|
|
// try UTF-8 (this includes ASCII)
|
|
p:=PChar(s);
|
|
repeat
|
|
if ord(p^)<128 then begin
|
|
// ASCII
|
|
if (p^=#0) and (p-PChar(s)>=l) then begin
|
|
Result:=EncodingUTF8;
|
|
exit;
|
|
end;
|
|
inc(p);
|
|
end else begin
|
|
i:=UTF8CharacterStrictLength(p);
|
|
//DebugLn(['GuessEncoding ',i,' ',DbgStr(s[p])]);
|
|
if i=0 then begin
|
|
{$IFDEF VerboseIDEEncoding}
|
|
DebugLn(['GuessEncoding non UTF-8 found at ',PosToStr(p-PChar(s)+1),' ',dbgstr(copy(s,p-PChar(s)-10,20))]);
|
|
{$ENDIF}
|
|
break;
|
|
end;
|
|
inc(p,i);
|
|
end;
|
|
until false;
|
|
|
|
// use system encoding
|
|
Result:=GetDefaultTextEncoding;
|
|
|
|
if NormalizeEncoding(Result)=EncodingUTF8 then begin
|
|
// the system encoding is UTF-8, but the text is not UTF-8
|
|
// use ISO-8859-1 instead. This encoding has a full 1:1 mapping to unicode,
|
|
// so no character is lost during conversion back and forth.
|
|
Result:='ISO-8859-1';
|
|
end;
|
|
end;
|
|
|
|
|
|
function ConvertEncodingFromUTF8(const s, ToEncoding: string; out Encoded: boolean
|
|
{$ifdef FPC_HAS_CPSTRING}; SetTargetCodePage: boolean = false{$endif}): string;
|
|
var
|
|
ATo: string;
|
|
|
|
{$ifdef FPC_HAS_CPSTRING}
|
|
procedure CheckKeepCP; inline;
|
|
begin
|
|
if SetTargetCodePage then
|
|
raise Exception.Create('ConvertEncodingFromUTF8: cannot set AnsiString codepage to "'+ATo+'"');
|
|
end;
|
|
{$endif}
|
|
|
|
begin
|
|
Result:=s;
|
|
Encoded:=true;
|
|
ATo:=NormalizeEncoding(ToEncoding);
|
|
|
|
if ATo=EncodingUTF8BOM then begin Result:=UTF8ToUTF8BOM(s); exit; end;
|
|
if ATo=EncodingCPIso1 then begin Result:=UTF8ToISO_8859_1(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCPIso15 then begin Result:=UTF8ToISO_8859_15(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCPIso2 then begin Result:=UTF8ToISO_8859_2(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCP1250 then begin Result:=UTF8ToCP1250(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCP1251 then begin Result:=UTF8ToCP1251(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCP1252 then begin Result:=UTF8ToCP1252(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCP1253 then begin Result:=UTF8ToCP1253(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCP1254 then begin Result:=UTF8ToCP1254(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCP1255 then begin Result:=UTF8ToCP1255(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCP1256 then begin Result:=UTF8ToCP1256(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCP1257 then begin Result:=UTF8ToCP1257(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCP1258 then begin Result:=UTF8ToCP1258(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCP437 then begin Result:=UTF8ToCP437(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCP850 then begin Result:=UTF8ToCP850(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCP852 then begin Result:=UTF8ToCP852(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCP866 then begin Result:=UTF8ToCP866(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCP874 then begin Result:=UTF8ToCP874(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
{$IFnDEF DisableAsianCodePages}
|
|
if ATo=EncodingCP936 then begin Result:=UTF8ToCP936(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCP950 then begin Result:=UTF8ToCP950(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCP949 then begin Result:=UTF8ToCP949(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCP932 then begin Result:=UTF8ToCP932(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
{$ENDIF}
|
|
if ATo=EncodingCPKOI8 then begin Result:=UTF8ToKOI8(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingCPMac then begin Result:=UTF8ToMacintosh(s{$ifdef FPC_HAS_CPSTRING},SetTargetCodePage{$endif}); exit; end;
|
|
if ATo=EncodingUCS2LE then begin {$ifdef FPC_HAS_CPSTRING}CheckKeepCP;{$endif} Result:=UTF8ToUCS2LE(s); exit; end;
|
|
if ATo=EncodingUCS2BE then begin {$ifdef FPC_HAS_CPSTRING}CheckKeepCP;{$endif} Result:=UTF8ToUCS2BE(s); exit; end;
|
|
|
|
if (ATo=GetDefaultTextEncoding) and Assigned(ConvertUTF8ToAnsi) then begin
|
|
Result:=ConvertUTF8ToAnsi(s);
|
|
exit;
|
|
end;
|
|
|
|
Encoded:= false;
|
|
end;
|
|
|
|
function ConvertEncodingToUTF8(const s, FromEncoding: string; out Encoded: boolean): string;
|
|
var
|
|
AFrom: string;
|
|
begin
|
|
Result:=s;
|
|
Encoded:=true;
|
|
AFrom:=NormalizeEncoding(FromEncoding);
|
|
|
|
if AFrom=EncodingUTF8BOM then begin Result:=UTF8BOMToUTF8(s); exit; end;
|
|
if AFrom=EncodingCPIso1 then begin Result:=ISO_8859_1ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCPIso15 then begin Result:=ISO_8859_15ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCPIso2 then begin Result:=ISO_8859_2ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCP1250 then begin Result:=CP1250ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCP1251 then begin Result:=CP1251ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCP1252 then begin Result:=CP1252ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCP1253 then begin Result:=CP1253ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCP1254 then begin Result:=CP1254ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCP1255 then begin Result:=CP1255ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCP1256 then begin Result:=CP1256ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCP1257 then begin Result:=CP1257ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCP1258 then begin Result:=CP1258ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCP437 then begin Result:=CP437ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCP850 then begin Result:=CP850ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCP852 then begin Result:=CP852ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCP866 then begin Result:=CP866ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCP874 then begin Result:=CP874ToUTF8(s); exit; end;
|
|
{$IFnDEF DisableAsianCodePages}
|
|
if AFrom=EncodingCP936 then begin Result:=CP936ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCP950 then begin Result:=CP950ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCP949 then begin Result:=CP949ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCP932 then begin Result:=CP932ToUTF8(s); exit; end;
|
|
{$ENDIF}
|
|
if AFrom=EncodingCPKOI8 then begin Result:=KOI8ToUTF8(s); exit; end;
|
|
if AFrom=EncodingCPMac then begin Result:=MacintoshToUTF8(s); exit; end;
|
|
if AFrom=EncodingUCS2LE then begin Result:=UCS2LEToUTF8(s); exit; end;
|
|
if AFrom=EncodingUCS2BE then begin Result:=UCS2BEToUTF8(s); exit; end;
|
|
|
|
if (AFrom=GetDefaultTextEncoding) and Assigned(ConvertAnsiToUTF8) then begin
|
|
Result:=ConvertAnsiToUTF8(s);
|
|
exit;
|
|
end;
|
|
|
|
Encoded:= false;
|
|
end;
|
|
|
|
function ConvertEncoding(const s, FromEncoding, ToEncoding: string
|
|
{$ifdef FPC_HAS_CPSTRING}; SetTargetCodePage: boolean{$endif}): string;
|
|
var
|
|
AFrom, ATo, SysEnc : String;
|
|
Encoded : Boolean;
|
|
{$ifdef EnableIconvEnc}
|
|
Dummy: String;
|
|
{$endif}
|
|
begin
|
|
AFrom:=NormalizeEncoding(FromEncoding);
|
|
ATo:=NormalizeEncoding(ToEncoding);
|
|
SysEnc:=GetDefaultTextEncoding;
|
|
if AFrom=EncodingAnsi then AFrom:=SysEnc
|
|
else if AFrom='' then AFrom:=EncodingUTF8;
|
|
if ATo=EncodingAnsi then ATo:=SysEnc
|
|
else if ATo='' then ATo:=EncodingUTF8;
|
|
if AFrom=ATo then begin
|
|
Result:=s;
|
|
exit;
|
|
end;
|
|
if s='' then begin
|
|
if ATo=EncodingUTF8BOM then
|
|
Result:=UTF8BOM
|
|
else Result := s;
|
|
exit;
|
|
end;
|
|
//DebugLn(['ConvertEncoding ',AFrom,' ',ATo]);
|
|
|
|
if AFrom=EncodingUTF8 then begin
|
|
Result:=ConvertEncodingFromUTF8(s, ATo, Encoded{$ifdef FPC_HAS_CPSTRING}, SetTargetCodePage{$endif});
|
|
if Encoded then exit;
|
|
end
|
|
else
|
|
if ATo=EncodingUTF8 then begin
|
|
Result:=ConvertEncodingToUTF8(s, AFrom, Encoded);
|
|
if Encoded then exit;
|
|
end
|
|
else
|
|
begin
|
|
Result:=ConvertEncodingToUTF8(s, AFrom, Encoded);
|
|
if Encoded then
|
|
Result:=ConvertEncodingFromUTF8(Result, ATo, Encoded{$ifdef FPC_HAS_CPSTRING}, SetTargetCodePage{$endif});
|
|
if Encoded then exit;
|
|
end;
|
|
|
|
//cannot encode: return orig str
|
|
Result:=s;
|
|
|
|
{$ifdef EnableIconvEnc}
|
|
try
|
|
if not IconvLibFound and not InitIconv(Dummy) then
|
|
begin
|
|
{$IFNDEF DisableChecks}
|
|
DebugLn(['Can not init iconv: ',Dummy]);
|
|
{$ENDIF}
|
|
Exit;
|
|
end;
|
|
if Iconvert(s, Result, AFrom, ATo)<>0 then
|
|
begin
|
|
Result:=s;
|
|
Exit;
|
|
end;
|
|
except
|
|
end;
|
|
{$endif}
|
|
end;
|
|
|
|
end.
|