Pascal - modalità grafica

05/04/08 17:03

Volevo sapere, se qualcuno lo sa, perche quando cerco di fare un programma usesdo la unit graph, il programma mi dà errore.
Questo è il programma:

Program grafica;
uses GRAPH;
var
a,b: integer;
begin
a := Detect;
    InitGraph(a,b,'');
    if graphresult = grOk then
begin
     Line(0, 0, GetMaxX, GetMaxY);
Readln;
     CloseGraph;
end
else
clearviewport;
readln;
end.

Mi dà errore nella riga 7 e mi dice:
7 / 12 grafica.pas
Error: call by var parameters have to match exactly: Got LONGINT expected SMALLINT

Qualcuno sa dirmi qualcosa ?? :-?

aaa

05/04/08 17:31

crash outside control

Prova con questo...

program _grafica_;
uses crt, graph;
var
grdriver, grmode : integer;
procedure grafica;
begin
grdriver := detect;
initgraph(grdriver, grmode, 'c:\tp\bgi');
end;
begin
clrscr;
grafica;
setcolor(red);
circle(100, 100,  100);
repeat
until keypressed;
end.

aaa

06/04/08 11:33

roma_91

Ho provato ma mi dà sempre lo stesso errore:
8 / 11 grafica2.pas
Error: call by var parameters have to match exactly: Got LONGINT expected SMALLINT

:-?