Section courante

A propos

Section administrative du site

DelLine

Efface la ligne
HighSpeed Pascal CRT

Syntaxe

Procedure DelLine;

Description

Cette procédure permet de supprimer la ligne à la position courante du curseur.

Remarque

Exemple

L'exemple suivant affiche plein d'astérisque à l'écran, attend que vous enfonciez la touche ENTER et efface chacun des lignes :

  1. Program DelLineSamples;
  2. Uses Crt;
  3. Var
  4.  X,Y:Integer;
  5. BEGIN
  6.  For X:=1 to Lo(WindMax) do For Y:=1 to Hi(WindMax) do Begin
  7.   GoToXY(X,Y);
  8.   Write('*');
  9.  End;
  10.  GoToXY(30,10) ;
  11.  Writeln('Presse ENTER pour continuer...');
  12.  ReadLn;
  13.  GoToXY(1,1);
  14.  For Y:=1 to Hi(WindMax) do DelLine;
  15. END.


Dernière mise à jour : Lundi, le 20 avril 2020