Ошибка graph.tpu
При запуске выдёт ошибку что файл graph.tpu не найден, хотя он есть в папке units. Подскажите решение данной проблемы пожалуйста.
Program flag;
uses graph;
var graphdriver,graphmode:integer;
begin
graphdriver:=detect;
initgraph(graphdriver,graphmode,'');
line(100,100,500,100);
line(100,100,100,400);
line(100,400,500,400);
line(500,100,500,400);
circle(300,250,70);
floodfill(101,101,white);
setfillstyle(1,red);
floodfill(300,250,white);
readln;
end.
Если не туда написал или не так оформил заголовок, прошу исправить.
Program flag;
uses graph;
var graphdriver,graphmode:integer;
begin
graphdriver:=detect;
initgraph(graphdriver,graphmode,'');
line(100,100,500,100);
line(100,100,100,400);
line(100,400,500,400);
line(500,100,500,400);
circle(300,250,70);
floodfill(101,101,white);
setfillstyle(1,red);
floodfill(300,250,white);
readln;
end.
Если не туда написал или не так оформил заголовок, прошу исправить.
проверь Options->Directories->Unit Directories
там путь к папке units правильно прописан.
там путь к папке units правильно прописан.
Исправил. Теперь работает, спасибо. Теперь компиляция проходит я запускать не хочет.
в initgraph укажите 3 параметром путь к bgi папке
У меня всё так же.
Прписал путь к папке - стал компилиться, но не запускается.
Прописал третий параметр D:\TP7\BGI\
Компилится, при попытке запустить - показывает на секунду чёрный экран и вылетает.
Прписал путь к папке - стал компилиться, но не запускается.
Прописал третий параметр D:\TP7\BGI\
Компилится, при попытке запустить - показывает на секунду чёрный экран и вылетает.