Re: Newbie question on Ada TExt_IO

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

On Fri, 04 Oct 2002 17:34:42 GMT, Justin Birtwell wrote:
> 
> Here's the code:
> 
> with Text_Io;use Text_Io;
> with StringFunctions;use StringFunctions;
> 
> procedure Test_IO_2 is
>    Input: String(1..256);
>    N:Integer;
>    Success:Boolean:=false;
>    Last:Integer;
> begin
>       while success /=true loop
>       Put("PLease enter a number between 1 and 6");
>       Get_Line(Item=>Input,Last=>Last);
>          if Is_Digit(Input(1..1)) then
>             N:=Integer'Value(Input(1..1));
>             if N>=1 and N<=6 then
>                Success:=True;
>             end if;
>          else
>             success:=false;
>             Put_Line("Invalid entry, try again.");
>          end if;
>        end loop;
>       Put_Line("Thank you");
>      exception
>       when others=>
>          Put_Line("Error, Invalid data.");
> end;

OK but note that your program will not ask you again if you press
something other than a integer value.

> 
> Is_Digit a hack of a procedure that compares the 1 character string to all
> 10 digits characters.  I really have a lot to learn.   What's giving me the
> hardest time is working within the confines of strict/strong typing.  The

Well you will learn that this is a great benifit. In the beginning it
can be a bit annoying, but you will soon be diseplined enough to avoid
all these problems and you will fully see why strong typing is the only
way to go.

Preben
-- 
Ada95 is good for you.
http://libre.act-europe.fr/Software_Matters/02-C_pitfalls.pdf