000
13.09.2004, 15:27 Uhr
Tiger
|
Hi,
ich habe erst vor kuzem mit TP 7.0 angefangen.
Nun habe ich mir mal von einer Seite im Internet den Code zum zeichnen einer Linie in TP übernommen
program linie;
uses crt, graph;
var grafiktreiber, grafikmodus, fehlercode : integer;
begin {---Main---}
grafiktreiber := detect; { Grafiktreiber wird automatisch erkannt }
initgraph (grafiktreiber, grafikmodus, ''); { Grafik initialis. }
fehlercode := graphresult;
if fehlercode <> 0 then { Meldung bei Fehler }
writeln ('Grafikfehler: ',grapherrormsg(fehlercode))
else
line(0, 0, getmaxx, getmaxy); { diagonale Linie von oben links }
outtextxy (100, 400, 'press any key'); { Textausgabe }
repeat until keypressed; { weiter bei Tastendruck }
closegraph; { Grafikmodus beenden }
end.
Nun wollte ich es starten. Hab also auf Strg+F9 gedrückt doch der Bildschirm wurde nur schwarz und nach 2 sekunden bin ich zum Code zurückgekehrt.
Ich habe mal alt+F5 gedrückt um zu sehen woran es liegt. Da stand was von
Grafikfehler: device driver file not found (EGAVGA.BGI)
BGI Error: Graphics not inizialized (use InitGraph).
Was kann ich dagegen tun?
Bitte helft mir. |
