Графический режим, BGI Error Опции

[Orlangur]

Появилась такая проблема:
В Паскале перестал пахать графический режим. Опишу подробнее:
Возьмем наипростейший пример:

Program lines;
Uses
Graph, Crt;
Var
GraphDriver, GraphMode, i, n: integer;
Begin
GraphDriver := Detect;
GraphMode := 0;
InitGraph(GraphDriver, GraphMode, '');
n := 50;
For i:= 1 to 10 do
begin
PutPixel(n, 100, Red);
n := n+1;
end;
SetBkColor(White);
ReadKey;
CloseGraph;
end.

Компилируется эта прога нормально, а когда запускаешь выдаёт ошибку:
"BGI Error: Graphics not initialized (use InitGraph)".
Использую я Free Pascal. Пробовал на Turbo Pascal - аналогичная ситуация.
Как быть?

[Altair]

Var
GraphDriver, GraphMode, i, n: integer;
Begin
GraphDriver := Detect;
GraphMode := 0;
InitGraph(GraphDriver, GraphMode, '');

Использую я Free Pascal.

замени кусок на

Var
  i, n: integer;
 
GraphDriver, GraphMode:smallint;

Begin
GraphDriver := d8bit;
GraphMode := m800x600;
InitGraph(GraphDriver, GraphMode, '');

и компилируй под win 32.
номер ошибки скажи если будет .

p.s. в uses вместо crt - wincrt.

[Orlangur]

и компилируй под win 32

Это как? Всмысле 32 битным компилятором?

[Orlangur]

Сделал как посоветовал.
При компиляции выдал такую ошибку:
Error 3: Unknown identifier.
При этом указывает на:

GraphDriver, GraphMode: smallint;

[Altair]

При компиляции выдал такую ошибку:

Нет так мы тебе помогать не будем.
Мне нужно ТОЧНО значть:
КОМПИЛЯТОР
ВЕРСИЯ КОМПИЛЯТОРА
ПЛАТФОРМА ПОД КОТОРУЮ КОМПИЛИРУЕШЬ
пока этой информации не будет, диалога не будет!

[Orlangur]

Turbo Pascal 7.01, version Haypo (0.91 BETA).
Free Pascal Version 1.0.6.
Платформу под которую компилирую не знаю.
А какие платформы вообще бывают? Какие лучше?

[Altair]

Turbo Pascal 7.01, version Haypo (0.91 BETA).
Free Pascal Version 1.0.6.

Выбери что-то одно!
Программы для одного не совместимы на 100% с другим.

Платформу под которую компилирую не знаю.

ДОС или ВИН ?
Ты все еще в облаках витаешь,
если ты работаешь только с 16 битами, забудь о FPC и живи в прошлом веке, иначе выбрасывай TP и юзай только FPC ... но скачай более новую версию.
Хорошо дальше, ты точно должен щас сказать какой компилер берешь и платформу под котрую компилишь.
Дело в отм что в ВИн приложениях не нужен BGI, раз у тебя ошибка такая, значитв FPC ТЫ НЕ КОМПИЛИРУЕШЬ!!! (ТАм такой ошибки быть не может)
оооххх..

[Orlangur]

Я уже разобрался...
Компилю я под Вин.
Скачал нормальную 32 битную версию Free Pascal 2.0.
Теперь всё ОК.

GraphDriver, GraphMode:smallint;

Что такое - smallint?

Begin
GraphDriver := d8bit;
GraphMode := m800x600;
InitGraph(GraphDriver, GraphMode, '');

А что за d8bit?

[Altair]

Что такое - smallint?

тип данных. целочисленный.

А что за d8bit?

стандарт задания видеодрайвера. 8 битный цвет (256 цветов)

[Orlangur]

Спасибо Altair...
Извини за гимор...

[Altair]

Orlangur , да ты брсь, заходи еще, мы тут как раз за тем что бы отвечать на вопросы

[Дима]

Привет, скажите плиз как писать текст в ГРАФ режиме.
пишу вроде как надо:
settextstyle (0,0,2);
outtextxy (20,20,'...');
нажимаю CTRL F9 программа работает,а еулсеф нету

[volvo]

Дима, какой компилятор у тебя? Какой-то из 32-битных или обычный TP? И, кстати, приведи программу полностью...

[гость]

uses graph;
var graphdriver, graphmode: integer;
Begin
graphdriver:= detect;
Initgraph (graphdriver, graphmode,'c:/tp/bgi');
setbkcolor

а че дальше то?
помогите плз

рисуночек нужен

[Ozzя]

uses graph;
var graphdriver, graphmode: integer;
Begin
graphdriver:= detect;
Initgraph (graphdriver, graphmode,'c:/tp/bgi');
setbkcolor

а че дальше то?
помогите плз

рисуночек нужен

Зарегистрируйся и получишь возможность прикреплять рисунки