User input/Text: Difference between revisions

return Line (1 .. Last);

end Get_String;

function Get_Integer return Integer is

S : constant String := Get_String;

return Integer'Value (S);

-- may raise exception Constraint_Error if value entered is not a well-formed integer

The functions above may be called as shown below

<lang ada>My_String : String := Get_String;