графика в Pascal Опции

[Turant]

Значит я даже просто беру пример из хелпа с графикой - копирую - запускаю.
Он сразу выходит написав: BGI error: use initgraph типа не могу инициализировать. Он в примере и используется.
А мне вот срочно потребовалось в мою программу добавить графический интерфейс.

Как деать простейшую графику?

[klem4]

Код

uses graph;

procedure GrOpen;
var
   gd,gm,ge : integer;
begin
   gd := detect;
   InitGraph(gd, gm, '');
   ge := GraphResult;
   if ge <> grOk then begin
      writeln('GraphError :', GraphErrorMsg(ge));
      halt(1);
   end;
end;

Begin
   GrOpen;
   Line(0,0, GetMaxX, GetMaxY);
   readln;
   CloseGraph;
end.

ээ чот я тупанул, с эти походу проблемы нет ...

Сообщение отредактировано: klem4 - 11.12.2005 21:48