Недавно написал в Win'98SE курсовую-игру на Паскале
В 98 все ОК, а вот в XP и ME вместо русских букв коряболы отображаются(в граф режиме) при запуске EXE-шника.
А у руководителя курсовой стоит XP и он сказал мне, чтобы я решил эту проблему(чтобы у него тоже все корректно отображалось)
Keyrus не помогает, шрифты менять пробовал - тоже ни в какую.
Может быть, кто-то знает, как решить эту проблему ???
Пишите, буду очень признателен
??? Может это:
Код
function Ru(mes: string):string;
var
i: integer;
begin
for i:=1 to length(mes) do
case mes[i] of
'А'..'п' : mes[i] := Chr(Ord(mes[i]) - 64);
'р'..'я' : mes[i] := Chr(Ord(mes[i]) - 16);
end;
rus := mes;
end;
Вывесте текст: writeln( Ru('Тест : абвгд...) );
Я имел в виду графический режим, а не текстовый.
В текстовом у меня все ОК
Драйвер стандартный - egavga.bgi
А так не пробовал: OutText (ru('Тест: абвгд...'); ?
НЕ ПОМОГАЕТ. :(
ТЕПЕРЬ ВМЕСТО РУССКИХ БУКВ НАБОР АНГЛИЙСКИХ
Дык ессесно так оно и будет, если используется альтернативная ASCII, а ежели отнять от каждого кода по 64-16 - примерно оно и получится
Каким шрифтом выводишь, небось по умлч.?
И преподу ишшо объясни, что прога твоя под ОС МС ДОС! Это на всякий случай, мы ее по любому оптимизируем под any винду. А то что у тя нет русских буковок, дык это херовая эмуляция...
Странно, что с keyrus'om ничего не вышло, ты хоть подключал шрифты под графику?
И советую тебе переделать ее под стандартные векторные шрифты, типа Triplex, Small и т.д. Русские варианты валяются везде, в частности и на этом сайте
А поконктретней
Ссылку пожалуйста
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста,
нажмите сюда.