[pascal] fermer la fenetre de commande

fermer la fenetre de commande [pascal] - Delphi/Pascal - Programmation

Marsh Posté le 30-11-2005 à 16:50:15    

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 :
  1. program GraphTest;
  3. uses
  4.   crt,Graph;
  6. var
  7.   Gm, Gd: smallInt;
  8. begin
  9.   Gd := Detect;
  10.   Gm := 0;
  11.   InitGraph(Gd, Gm, '');
  12.   if GraphResult = grOk then
  13.   begin
  14.     Line(0, 0, GetMaxX - 1, GetMaxY - 1);
  15.     OutTextXY(900,500,'test');
  16.     ReadLn;
  17.     CloseGraph;
  18.   end;
  19. 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?

Reply

Marsh Posté le 30-11-2005 à 16:50:15   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed