Re: Some problems with string type

[Philip Anderson <phil.anderson@amsjv.com>]

Valdes wrote:
> 
> I have my program writen in Ada that raise some exceptions:
> 
> raised CONSTRAINT_ERROR : gestindex.adb:5
> 
> ... And at line 5...
> 
>  function createindex (S:string) return index is
>       I:Index;
>    begin
>       i.nameindex:=s; -- Ligne cinq

Note that Constraint Error will be raised if s is not _exactly_ 20
characters long.

>       i.firstletter:=null;
>       return i;
>    end createindex;
> 
> ... The index record is defined as follow...
> 
>   type index is record
>       nameindex:String(1..20);
>       firstletter:ptrletter;
>    end record;
> 
> ... The mistake seems to be trivial but I don't see it.
> 
> I have seen the same for this also:
> 
>     Ptrtemp.Letter:=Charat(M,Ni);
> 
> there is the same error but Charat return a character and letter is also
> one. (ptrtemp is also type ptrlettre)

Is M a String and Ni an index into it?  If so Ni must be within the
range M'first .. M'last, and M'first may be greater than 1 (and won't be
0).


> All my greetings if you have some ideas. And forgive me for my bad
> english.

Pas de probleme.

> --
> Le Vif Z�phyr Jubile Sur Les Kumquats Du Clown Gracieux.
The quick brown fox jumps over the lazy dog.


-- 
hwyl/cheers,
Philip Anderson
Alenia Marconi Systems
Cwmbr�n, Cymru/Wales