Re: Exception problem

["David C. Hoos, Sr." <david.c.hoos.sr@ada95.com>]

The problem is that when Text_IO.Data_Error is raised in this circumstance,
the pointer in the input stream is backed up to where it was before the
Int_IO.Get was called.  Therefore, if you want to skip over this
non-numeric data in the input stream, you should call Text_IO.Skip_Line
just after the line:
Put_Line ("Entry must be a number.  Try again.");

Incidentally, Ada is much more civilized than C++.  We don't "throw"
things.  Exceptions are simply "raised."

One other point about your code.  Instantiations of generics (e.g.,
Text_IO.Integer_IO) for commonly used types are better placed at the
Library level, so all parts of your program can use the same instantiation.
 Depending on the compiler/binder/linker used, code for multiple identical
instantations may or may not share the code.
-- 
David C. Hoos, Sr.,
http://www.dbhwww.com
http://www.ada95.com

Larry Coon <larry@fs2.assist.uci.edu> wrote in article
<330A0D25.313@fs2.assist.uci.edu>...
> Ada beginner here...
> 
> The intent of the following code is to loop until valid input is 
> provided:
>