Помощь - Поиск - Пользователи - Календарь
Полная версия: Паскаль - Text&Graph
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
R_c4D
Подскажите пожалуйста - как (в Турбо Паскале) перейти из
текстового режима в графический правильно, а то после первого
запуска программы (при этом всё проходит нормально - выводится и
текст и графика) в коде все русско-язычные символы автоматически
переводятся в какие-то иероглифы, скомпилированный .exe-файл
полностью работает (не без EGAVGA.BGI).

Uses Crt,Graph;
...
..., gd,gm:integer;
...
{здесь идёт текстовая часть программы}
...
Readln;
{начинается графический режим}
gd:=0;
InitGraph(gd,gm,'');
SetViewPort(0,0,640,480,ClipOn);
...
{рисунок}
...
Readln;
CloseGraph;
End.


Заранее ОГРОМНОЕ СПАСИБО за любую помощь!
Malice
Делаешь все правильно, проблема в виндовсе, он сбрасывает шрифты.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.