Re: index check failure - constraint error

[tonyg <tonythegair@gmail.com>]

On Apr 1, 11:53 am, tonyg <tonytheg...@gmail.com> wrote:
> I'm getting a constraint error and I cannot see why...
>
>    function String_To_Integer (The_String : String) return Integer is
>       String_Length : Integer := The_String'length;
>       Return_Value : Integer := 0;
>       subtype Number_Character  is character range '0'..'9';
>    begin
>         Int_Io.Put(String_Length);
>       Ada.Text_IO.Put_Line (The_String);
>       if String_Length > 0 then
>       for count in 1..String_Length loop
>          case The_String(count) is
>             when Number_Character =>
>                Return_Value := Return_Value +
>                  ((Character'pos(The_String(count)) - 48) *
> (10**(count-1)));
>             when others =>
>                raise Conversion_Error_Exception;
>          end case;
>          end loop;
>       else
>          Return_Value := 0;
>       end if;
>
>       return Return_Value;
>
>    end String_To_Integer;
>
> I checked to see there was a string going in and it had a length. The
> actual error was 'index check failure' but as far as I can see
> everything is present and correct. Can anyone see what it is ?

The index check failure occurred at

  case The_String(count) is

btw