Re: String declaration and initialization

[Matthew Heaney <mheaney@on2.com>]

On May 22, 12:58 pm, Sébastien <seb.mor...@gmail.com> wrote:
>
> > declare
> >   Test1 : aliased constant String := "test1";
> >   Test2 : aliased constant String := "test2";
>
> >   type Table_Type is array (Test_Type) of
> >     not null access constant String;
>
> >   Table : constant Table_Type :=
> >     (T1 => Test1'Access,
> >      T2 => Test2'Access,
> >      ...);
>
> >   S : String renames Table (Some_Test).all;
> > begin
> > ...
> > end;
>
> That's an idea but... Test1 are actually not a constant string, that was
> an example :-) It's calculated sometime it's even a return of some
> function and so on.

That doesn't really change anything.  You could say:

declare
  Test1 : aliased constant String := Result_Of_Function1;
  Test2 : aliased constant String := Result_Of_Function2;
...
begin



>      MyTreatment1(buffer.all, buffer.all'Size);

What are you trying to do here?  Why can't you simply declare
MyTreatment1 like this:

  procedure MyTreatment1 (S : String) is ...;

and then call it like this:

  MyTreatment1 (buffer.all);


> end;
>
> but it doesn't work of course since I can't create with new an
> unconstrained object.

No, Bob showed you what to do:

  ... new String'("this is my string");