paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 06:49:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* converted CP850UCT and CP850LCT into #-notation (mantis #8104)

Browse Source 
git-svn-id: trunk@5952 -
This commit is contained in:
Jonas Maebe 2007-01-13 19:12:02 +00:00
parent 38d54234d7
commit 241645961d
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
rtl/objpas/sysutils/sysstr.inc
View File

@ -2588,25 +2588,25 @@ end;
const
{ upper case translation table for character set 850 }
CP850UCT: array[128..255] of char =
('─', ' ', '░', '╤', '▌', '╤', '▐', '─', 'р', 'с', 'т', 'ь', 'в', 'ч', '▌', '▐',
'░', '▓', '▓', 'Б', '≥', 'Ц', 'Й', 'К', 'Y', '≥', ' ', '²', '°', '²', '·', '÷',
'╣', 'ж', 'Ю', 'И', '╔', '╔', '╕', '╖', '╗', '╘', '╙', '╚', '╛', '╜', '╝', '╞',
'╟', '╠', '╡', 'Ё', '╢', '╣', '╤', '╥', '╦', '╧', '╨', '╩', '╪', '╫', '╬', '©',
'ю', 'а', 'б', 'ц', 'д', 'е', 'г', 'г', 'х', 'и', 'й', 'к', 'л', 'м', 'н', 'о',
'п', 'я', 'р', 'с', 'т', 'у', 'ж', 'в', 'ь', 'ы', 'з', 'ш', 'э', 'щ', 'ч', 'ъ',
'Ю', 'А', 'Б', 'Ц', 'Е', 'Е', 'Ф', 'М', 'Х', 'И', 'Й', 'К', 'М', 'М', 'Н', 'О',
'П', 'Я', 'Р', 'С', 'Т', 'У', 'Ж', 'В', 'Ь', 'Ы', 'З', 'Ш', 'Э', 'Щ', 'Ч', 'Ъ');
(#128,#154,#144,#182,#142,#182,#143,#128,#210,#211,#212,#216,#215,#222,#142,#143,
#144,#146,#146,#226,#153,#227,#234,#235,'Y',#153,#154,#157,#156,#157,#158,#159,
#181,#214,#224,#233,#165,#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,
#192,#193,#194,#195,#196,#197,#199,#199,#200,#201,#202,#203,#204,#205,#206,#207,
#208,#209,#210,#211,#212,#213,#214,#215,#216,#217,#218,#219,#220,#221,#222,#223,
#224,#225,#226,#227,#229,#229,#230,#237,#232,#233,#234,#235,#237,#237,#238,#239,
#240,#241,#242,#243,#244,#245,#246,#247,#248,#249,#250,#251,#252,#253,#254,#255);
{ lower case translation table for character set 850 }
CP850LCT: array[128..255] of char =
('┤', '│', '┌', '┐', '└', '┘', '├', '┤', '┬', '┴', '┼', '▀', '▄', '█', '└', '├',
'┌', '▒', '▒', '⌠', '■', '∙', '√', '≈', '≤', '■', '│', '⌡', '°', '⌡', '·', '÷',
'═', '║', '╒', 'ё', '╓', '╓', '╕', '╖', '╗', '╘', '╙', '╚', '╛', '╜', '╝', '╞',
'╟', '╠', '╡', 'Ё', '╢', '═', '┐', '┘', '╦', '╧', '╨', '╩', '╪', '╫', '╬', '©',
'ю', 'а', 'б', 'ц', 'д', 'е', 'ф', 'ф', 'х', 'и', 'й', 'к', 'л', 'м', 'н', 'о',
'п', 'я', '┬', '┴', '┼', 'у', '║', '▄', '▀', 'ы', 'з', 'ш', 'э', 'щ', '█', 'ъ',
'╒', 'А', '⌠', '∙', 'Д', 'Д', 'Ф', 'М', 'Х', 'ё', '√', '≈', 'Л', 'Л', 'Н', 'О',
'П', 'Я', 'Р', 'С', 'Т', 'У', 'Ж', 'В', 'Ь', 'Ы', 'З', 'Ш', 'Э', 'Щ', 'Ч', 'Ъ');
(#135,#129,#130,#131,#132,#133,#134,#135,#136,#137,#138,#139,#140,#141,#132,#134,
#130,#145,#145,#147,#148,#149,#150,#151,#152,#148,#129,#155,#156,#155,#158,#159,
#160,#161,#162,#163,#164,#164,#166,#167,#168,#169,#170,#171,#172,#173,#174,#175,
#176,#177,#178,#179,#180,#160,#131,#133,#184,#185,#186,#187,#188,#189,#190,#191,
#192,#193,#194,#195,#196,#197,#198,#198,#200,#201,#202,#203,#204,#205,#206,#207,
#208,#209,#136,#137,#138,#213,#161,#140,#139,#217,#218,#219,#220,#221,#141,#223,
#162,#225,#147,#149,#228,#228,#230,#237,#232,#163,#150,#151,#236,#236,#238,#239,
#240,#241,#242,#243,#244,#245,#246,#247,#248,#249,#250,#251,#252,#253,#254,#255);
{ upper case translation table for character set ISO 8859/1 Latin 1 }
CPISO88591UCT: array[192..255] of char =