pascal

← →
race1 © (2002-11-20 11:56) [0]

program qwer;
uses Crt, Graph;
var
GD, GM: Integer;
begin
GD:=0; GM:=0;
InitGraph(GD, GM, "C:\PROGRA~1\BORLAND\PASCAL\BGI\");
Writeln(GraphResult);
ReadKey;
end.
почему такой код ворачивает -3, т.е., файл не найден? egavga.bgi в папе есть...

← →
F1 © (2002-11-20 11:59) [1]

GD:=Detect;
Что-то такое было, попробуй.

← →
race1 © (2002-11-20 17:26) [2]

тоже не работает

← →
Marcus (2002-11-20 17:39) [3]

Попробуй слэш не ставить в конце пути

← →
Valentain © (2002-11-20 18:15) [4]

... а лучше egavga.bgi бросить в BIN ...

С уважением...

← →
han_malign © (2002-11-20 18:19) [5]

по жизни указывался полный путь
InitGraph(GD, GM, "C:\PROGRA~1\BORLAND\PASCAL\BGI\eagvga.bin");
до сих пор помню, что у меня было
InitGraph(GD, GM, "eagvga.bin");
для файла который лежит в том же каталоге что и программа

← →
40º (2002-11-20 18:28) [6]

У меня, помнится, на каждой машине
в корне диска С\: был файл pasgraph.cfg, в
котором хранился путь к egavga.bin

Соответственно, все проги его оттуда читали.

← →
SottNick © (2002-11-21 07:30) [7]

кинь в папку со своим pas/exe файлом
у меня работает
i:=0;
initgraph(i,i,"");

uses graph,crt,win,dos, bgi,printer;//на всякий случай

нихрена не работает, ни egavga в bin, ни в каталог проги, ни слэщ в конце, неработает аааа!!!

Всю жизнь работало:

Var
GraphDriver, GraphMode : Integer; {Graph®

2 race1
да у тебя egavga.bgi - испорченный или от другого паскакаля
если конечно с именем файла ты не напутал к тому же

pascal Найти похожие ветки