![]() |
![]() |
КУЗЯ |
![]()
Сообщение
#1
|
Гость ![]() |
Ребята, у меня стоит XP, как в Паскале переключиться на русский алфавит ??? Заранее спасибо !!!
|
![]() ![]() |
SKVOZNJAK |
![]()
Сообщение
#2
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 930 Пол: Мужской Репутация: ![]() ![]() ![]() |
Тема не потеряла актуальность, ПРОБЛЕМА не решена до конца. В защищённом режиме, при запуске через винду, внешние драйвера реального режима выглядят довольно-таки странно. И слетают они при первой же вожможности. Через нортон, фар и проводник, проги запускаются по разному. В проводнике, винда упорно пытается по умолчанию выводить текст чёрным цветом, но с этим легко справиться, а вот со шрифтами
![]() Код USES CRT; VAR AAA2: ARRAY[1..90000000] OF BYTE; A3: BYTE; BEGIN TEXTBACKGROUND(0); TEXTCOLOR(10); CLRSCR; WRITELN(''); WRITELN('FDGRE паькуЩШАВЩШОАВЩШОАВЛДЖЭПРЖЭПРЩПА'); AAA2[1]:=4; AAA2[89000000]:=112; WRITELN(AAA2[1],' ',AAA2[89000000],' ',AAA2[4321]); WRITELN(''); WRITELN('AAAAAAAA'); WRITELN('AAAAAA ВЫВЫФВЫЧ'); WRITELN('ПКУРЕКНввфёЁ'); SOUND(200); DELAY(3000); NOSOUND; FOR A3:=1 TO 20 DO IF KEYPRESSED=TRUE THEN READKEY; WRITELN('ВВЕДИ СТРОКУ'); READLN; END. Пупырится под 32 бита, и только внутренний драйвер типа библиотеки или модуля даст стабильный результат. И тут возникает несколько вопросов: 1 Можно перерисовать символы 97-175, 224-241. По какому адресу они лежат. 2 Как переключать раскладки клавиатуры. 3 Нужен универсальный алгоритм и желателено поменьше асмы, так как не все её знают :p2: и неизвестно как привычный код будет работать в другом компиляторе или платформе. Сообщение отредактировано: SKVOZNJAK - 25.04.2004 3:05 |
![]() ![]() |
![]() |
Текстовая версия | 23.06.2025 19:58 |