SET_COL |
Fixe la colonne |
|---|---|
| Ada | Text_IO |
Syntaxe
| Procedure Set_Col(To:in Positive_Count); |
| Procedure Set_Col(File:in File_Type;To:in Positive_Count); |
Paramètres
| Nom | Description |
|---|---|
| To | Ce paramètre permet d'indiquer le nombre d'espace à rajouter à la position courante |
| File | Ce paramètre permet d'indiquer l'identificateur de fichier |
Description
Cette procédure permet de fixer la position horizontal dans le fichier ou sur la console de sortie.
Exemple
Voici un exemple de l'utilisation de cette fonction :
- WITH TEXT_IO; USE TEXT_IO;
-
- PROCEDURE GotoXYSamples IS
-
- PROCEDURE GotoXY(X,Y:Integer) IS BEGIN
- SET_COL(Text_IO.Positive_Count(X));
- SET_LINE(Text_IO.Positive_Count(Y));
- END GotoXY;
-
- BEGIN
- FOR I IN 1..5 LOOP
- GotoXY(I,I);
- PUT('A');
- END LOOP;
- FOR I IN 1..5 LOOP
- GotoXY(6+I,6-I);
- PUT('B');
- END LOOP;
- GotoXY(1,6);
- PUT_LINE("Fin !");
- END GotoXYSamples;
Dernière mise à jour : Dimanche, le 1er avril 2018