Re: Newbie question

[Alfred Hilscher <Alfred.Hilscher@icn.siemens.de>]

Michal Nowak wrote:
> >Hour :=
> >   Hour_Type'Value (Whole_Line (Current_Position .. Current_Position + 2));
>                                                                        ^^^^
> There was another little one. It should be Current_Position + 1 (assuming,
> that hour is two digit, and Current_Position is position of first digit).

Another way would be to search for the first digit and then search from
there to the first non digit, so you can handle both, one-digit hours
and two-digit hours:

Hour :=  Hour_Type'Value (Whole_Line (First_Digit .. First_Non_Digit -
1));