Проблемы с графическим режимом в Borland Pascal 7

[steelik]

Program Ex_1;

Uses Graph;

Var Gd, Gm: integer;

Begin
Gd:=VGA;
Gm:=VGAhi;
Initgraph(Gd,Gm,'');

if GraphResult = grOk then
begin
line(0,0,639,479);
Readln;
CloseGraph;
end;

End.

Вообщем жму CTRL+F9, собирается, блынкает черный экран и обратно. Жму ALT+F5, ничего особенного, то есть никаких ошибок не возникает, в чем может быть дело? Всё это под XPSP2 стоит.

[cerafim]

steelik
еще один модуль crt, или это у меня в голове все перевернулось или он должен быть подключен... и еще в настройках паскаля, должны быть указаны пути до директорий с модулями...
в общем это основные проблемы которые у меня были во время учебы

[Willow]

Для того, чтобы увидеть код ошибки нужно написать следующее:

Error:=GraphResult;
If error<>grOk then
begin
writeln('Graph error #',error);
halt;
end;

[Bishop]

steelik
По ходу все у тебя работает: программа запускается, переходит в граф. режим и, после рисования линии, выходит из него и завершается. А оператор Readln; в граф. режиме не осуществляет задержку.
Попробуй вместо него поставить конструкцию вроде
repeat until (readkey=#13);
(Enter для выхода).

[Ghost]

steelik
Есть там маленький глюк: даже прописав все пути или конкретно указав в InitGraph путь к графическому драйверу (третий параметр), он (драйвер) не находится. Попробуй переписать его (файлик egavga.bgi из папки BGI) в текущую папку (в которой лежит сама твоя прога). И еще можно попробовать детектить графический режим, а не указывать явно - с этим тоже возникают проблемы при работе из под винды:

uses
  graph, crt;

var
  gd, gm: integer;

begin
  gd := detect;
  initgraph (gd, gm, '');
  if GraphResult = grOk then begin
    line (0, 0, getmaxx, getmaxy);
    readkey;
    closegraph;
  end;
end.