Help!

← →
SSA (2002-09-07 21:09) [0]

Здравствуйте!!!!
Извените что вопрос по Паскалю, но у меня большоая просьба помощи!
Вся проблема в том, чт я не могу реализовать графический режим, а ошибка в том,
что он не может найти файл EGAVGA.BGI, хотя он есть, в чем тут может быть проблема, если что
вот код:

Uses Graph;

Var ErrorCode : Integer;
GrDriver, GrMode : Integer;

Begin
GrDriver:=Detect;

InitGraph(GrDriver, GrMode, "");
ErrorCode:=GraphResult;
If ErrorCode <> grOk Then
Begin
WriteLn(GraphErrorMsg(ErrorCode));
readln;
Halt(1);
End;
Rectangle(0, 0, GetMaxX, GetMaxY);
ReadLn;
CloseGraph;
End.

← →
Poirot © (2002-09-07 21:10) [1]

> InitGraph(GrDriver, GrMode, "");

Попробуйте путь прописать!!!

← →
SSA (2002-09-07 21:12) [2]

Я все пробовал :(
Вот в этом и проблема!

← →
SSA (2002-09-07 21:24) [3]

НУ ОЧЕНЬ НУЖНА ПОМОЩЬ!!!!!!!!!!!!!

Если прописан правильный путь, должно работать. В крайнем случае попробуй скопировать файл в папку с программой. И посмотри
настройки (options->directories), может там чего не хватает.

Вот кусок из моей старой, нормально работающей программы. Графические драйверы лежат в ее же каталоге.

grDriver := Detect;
InitGraph(grDriver, grMode, "");
grCode := GraphResult;
if grCode <> grOk then
begin
WriteLn(GraphErrorMsg(grCode));
Halt(1)
end;

Отличий, как видите, нет. Если файл драйвера не запорот, то должно работать.

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