Re: Get_Line

[Preben Randhol <randhol+news@pvv.org>]

Justin Birtwell wrote:
> Hi,
> 
> I'm having some strange behavior with Get_Line.  In a procedure called
> GetData I call Get_Line to receive input from the command line. The first
> time this function is called it behaves fine prompting the user for input.
> The second time it runs  the execution passes through Get_Line and no prompt
> appears on the command line.  Upon doing a little research in the Ref Man.

This is because your Put_Line is outside the loop.

> 
>    procedure Getdata(P_Num_Of_Points: out Natural) is
>       Last:Natural:=0;
>       Buffer:String(1..80):=(1..80=>Character'val(0));
>    begin
>       Ada.Text_Io.Put_Line("Enter between 1 and 6 Balloons to ..."); 
>       loop
>          begin
> 
>                                            ---This line gets skipped


-- 
Preben Randhol  --------------------  http://www.pvv.org/~randhol
�.., chaos is found in greatest abundance wherever order is being
sought. It always defeats order, because it is better organized.�
                            -- Interesting Times, Terry Pratchett