Re: Constraint Error

[Stephen Leake <stephen_leake@acm.org>]

"Rick Santa-Cruz" <rick_santa_cruz75@msn.com> writes:

> Hi,
> 
> how can I avoid the Constraint Error, when executing the following code:
> 
> with Messages;
> 
> procedure Test_Messages is
>  M1: Messages.Message;
>  M2: Messages.Message;
> 
> begin
>  m1:=Messages.Create("This is a test");
>  m2:=Messages.Create("This is a second test");
> end Test_Messages;
> ----------------------------
>  package Messages is
>  type Message is tagged private;
>  subtype String_Txt is String(1..20);

This says that all strings will have exactly 20 characters. Not very
flexible.

See Ada.Strings.Bounded and Ada.Strings.Unbounded, in your favorite
Ada manual or textbook.

-- 
-- Stephe