Get

(Caracteres y Ristras de tamaño fijo)

Librería

Ada.Text_IO

Sintaxis y explicación

procedure Get([File : in File_Type;] Item : out Character);
procedure Get([File : in File_Type;] Item : out String);

Ejemplo

with Ada.Text_IO; use Ada.Text_IO;
...
S : String (1 .. 20);
C : Character;
F : File_Type;
...
Get (C);     --  Lee un carácter de la entrada estándar en la variable C
Get (F, C);  --  Lee un carácter del fichero F en la variable C

Get (S);     --  Lee 20 caracteres de la entrada estándar en la ristra S
Get (F, S);  --  Lee 20 caracteres del fichero F en la ristra S

Véase