Re: Getting valid Integer values !!

["Martin Dowie" <martin.dowie@btopenworld.com>]

"CheGueVerra" <chegueverra@hotmail.com> wrote in message
news:Fxflb.1900$VQ3.239738@news20.bellglobal.com...
> [code snippet]
> package Entiers is new Text_io.Integer_io (Num => Integer);

Assuming you haven't got a prior "use Ada", for new code you
should call it "Ada.Text_IO" - "Text_IO" is listed as an "Obsolescent"
feature.

> IntData : integer range 1000000..9999999;

This is an "anonymous type" - generally considered bad (esp. for
exported things, not so bad when used localling within a subprogram).
You should declare a 'subtype' for this range.

> ValidKey : Boolean := false;
Not needed - see later

> begin
>  put_line("Test Valid Key");
>
> while not ValidKey loop

   loop

> begin
>     Put_line(" Enter Key :");
>     Entiers.Get(IntData);
>     ValidKey := True;

      exit;  -- this is the canonical method

> exception
>     When Data_error | Constraint_error =>
>         Put_line(" Error reading value,  Integer expected of range ...");
>         Skip_line;
> end;
> end loop;
>
> Put_Line("Valid data entered");

Must be valid to get out of the loop

> Keep in mind that I can't use an exit in a loop so I used the boolean
value,
> it seems to work but ada has surprised me before ....

Why can't you use an exit?