Re: Constraint Error

["John A. S. Rowlands" <john.rowlands@baesystems.com>]

Rick,

Try

   M.Text := Ada.Strings.Fixed.Head(
     Source => Str,
     Count => String_Txt.Size,
     Pad => ' ');

instead of your current assignment to M.Text

John Rowlands
BAE SYSTEMS, Warton, UK

"Rick Santa-Cruz" <rick_santa_cruz75@msn.com> wrote in message
news:<cjfg8e$g6i$00$1@news.t-online.com>...
>
> how can I avoid the Constraint Error, when executing the following code:
> ------------------------------
> package body Messages is
>  function Create(Str: String) return Message is
>   M: Message;
>  begin
>   M.Text := Str;
>   return M;
>  end Create;
> end Messages;