Re: Get Integer into Enumeration_IO doesn't work

["Dr. Michael Paus" <paus@ib-paus.com>]

Amir Shaked wrote:
> Hello,
> 
> The following code compiles and links
> but fails on DATA_ERROR in run-time.
> Can you tell me why?
> 
> with Text_IO;
> procedure PrintInt
> is
>    Num  : Integer;
>    package EnumIO is new Text_IO.Enumeration_IO(Integer);
> begin
>    Text_IO.Put_Line ("Enter Num:");
>    EnumIO.Get (Num);
> end PrintInt;

If you do not need any specific formatting you can simply write:

with Text_IO;
procedure PrintInt
is
    Num  : Integer := 4711; -- You have to assign some value
begin
    Text_IO.Put_Line ("Enter Num:" & Integer'Image(Num));
end PrintInt;

In this case you do not need any instantiations at all.

Michael