Hallo,
ich wollte meine Pascal-Kenntnisse aus der Schule auffrischen (damals noch mit Turbo Pascal) und verwende hierzu Free Pascal 2.4.0. Jedoch habe ich ein Problem mit dem Graphik-Modus. Hier erst einmal der Code:
program test;
uses crt, graph;
var gd, gm: integer;
path: string;
begin
clrscr;
gd := detect;
gm := 1;
path := '';
initgraph(gd, gm, path);
if graphresult <> grok then
begin
write('STOP');
halt;
end;
circle(10, 10, 10);
readln;
closegraph;
writeln('Fertig');
readln;
end.
Beim Ausführen öffnet sich zunächst ein DOS-Fenster, dann sogleich ein weiteres, maximiertes Fenster namens "Graph window application" in dem auch der Kreis zu sehen ist. Dieses Fenster kann ich jetzt jedoch nicht wie erwartet mit Enter schließen, sondern muss es anderweitig erledigen (Task-Manager, Kreuz des Fensters anklicken). Es bleibt das DOS-Fenster offen. Hier erst kann ich mit Enter etwas bewirken: Zunächst erscheint der Text "Fertig" und nach einem weiteren Enter wird das Programm wie gewünscht beendet.
Wie bekomme ich es hin, dass ich das Graph-Fenster per Tastendruck schließen kann?
Schon einmal danke für die Mühe,
-sentropie-