bossgama | Salut, je travaille sous dev-Pascal (freepascal), et je suis en train de tester l'interface graphique. J'ai trouvé sur le net ce code:
Code :
- program GraphTest;
- uses
- crt,Graph;
- var
- Gm, Gd: smallInt;
- begin
- Gd := Detect;
- Gm := 0;
- InitGraph(Gd, Gm, '');
- if GraphResult = grOk then
- begin
- Line(0, 0, GetMaxX - 1, GetMaxY - 1);
- OutTextXY(900,500,'test');
- ReadLn;
- CloseGraph;
- end;
- end.
|
mais il ouvre une fenêtre graphique et une fenêtre de commande, alors que cette dernière est vide. Je pense que c'est à cause du readln, mais je ne vois pas comment faire pour passer outre (mettre le readln sur la fenetre graphique par exemple).
Que puis-faire? |
