Section courante

A propos

Section administrative du site

ASSIGNKBD

 Associé au clavier
Turbo Pascal 4+ Turbo3

Syntaxe

Procedure AssignKbd(Var F:Text);

Paramètres

Nom Description
F Ce paramètre permet d'indiquer une variable de type Text, représentant un fichier texte.

Description

Cette procédure permet d'associer un descripteur de fichier avec le clavier.

Exemples

L'exemple suivant permet de lire une ligne depuis le clavier :

  1. Program AssKbd1;
  2.  
  3. Uses Turbo3,Crt; 
  4.  
  5. Var
  6.  F:Text;
  7.  S:String;
  8.  
  9. BEGIN
  10.  ClrScr;
  11.  AssignKbd(F);                         { Associe F au clavier }
  12.  Reset(F);                             { Ouvre le fichier texte en lecture }
  13.  Write('Entrez une ligne de texte : ');
  14.  ReadLn(F, S);                         { Lit une ligne depuis l'entrée utilisateur }
  15.  WriteLn('Vous avez tapé : ', S);
  16.  Close(F);
  17. END.

L'exemple suivant permet de lire plusieurs lignes jusqu'à la fin du fichier :

  1. Program AssKbd2;
  2.  
  3. Uses Turbo3,Crt;
  4.  
  5. Var
  6.   F:Text;
  7.   S:String;
  8.  
  9. BEGIN
  10.  ClrScr;
  11.  AssignKbd(F);
  12.  Reset(F);
  13.  WriteLn('Tapez plusieurs lignes, finissez avec Ctrl+Z :');
  14.  While Not Eof(F) do Begin
  15.   ReadLn(F, S);
  16.   WriteLn('Lu : ', S);
  17.  End;
  18.  Close(F);
  19. END.

L'exemple suivant permet de lire un caractère à la fois :

  1. Program AssKbd3;
  2.  
  3. Uses Turbo3,Crt;
  4.  
  5. Var
  6.  F:Text;
  7.  C:Char;
  8.  
  9. BEGIN
  10.  ClrScr;
  11.  AssignKbd(F);
  12.  Reset(F);
  13.  WriteLn('Tapez un texte, finissez avec Enter :');
  14.  While Not Eoln(F) do Begin
  15.   Read(F, C);
  16.   WriteLn('Caractère lu : ', C);
  17.  End;
  18.  Close(F);
  19. END.

Dernière mise à jour : Dimanche, le 23 Janvier 2022