Re: Unbounded String to string

[tonyg <tonythegair@googlemail.com>]

On 29 June, 15:33, Adam Beneschan <a...@irvine.com> wrote:
> On Jun 29, 7:28 am, tonyg <tonytheg...@googlemail.com> wrote:
>
> > Hi,
> >    I have an unbounded string from a database I want to turn into a 16
> > character subtype of string
>
> > i.e. unbounded_string to string(1..16)
>
> > I've been trying to do this most of the afternoon but keep getting
> > errors
>
> > anyone know how ?
>
> Declare a subtype to give string(1..16) a name; then call To_String
> (in Ada.Strings.Unbounded) and convert the function result to your
> subtype.  E.g.:
>
>    subtype String_Length_16 is string(1..16);
>    V : String_Length_16;
>
>    V := String_Length_16 (Ada.Strings.Unbounded.To_String (U));
>
>                         -- Adam

Thanks Adam