Get_Line

(Ristras de tamaño fijo)

Librería

Ada.Text_IO

Sintaxis y explicación

procedure Get_Line ([File : in File_Type; ]Item : out String;  Last : out Natural);
function Get_Line[(File : in File_Type)] return String;

Ejemplo

with Ada.Text_IO; use Ada.Text_IO;
...
S1, S2: String (1 .. 20);
L1, L2: Natural;
F     : Ada.Text_IO.File_Type;
...
Get_Line (S1, L1);     -- Leído S1 (1 .. L1)
Move (Get_Line, S2, Left);

Get_Line (F, S1, L1);  -- Leído S1 (1 .. L1)
Move (F, Get_Line, S2, Left);

Véase