Ada.Text_IO |
procedure Get_Line ([File : in File_Type; ]Item : out String; Last : out Natural);
function Get_Line[(File : in File_Type)] return String;
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);