Re: String declaration and initialization

[Matthew Heaney <mheaney@on2.com>]

On May 22, 11:47 am, Sébastien <seb.mor...@gmail.com> wrote:
>
> declare
>         buffer: String; --  Error at compile time
> begin
>         case SomeTest is
>                 case TEST1 =>
>                         buffer := "Test1";
>                 case TEST2 =>
>                         buffer := "Test2";
>         end case;
>         MyTreatment1(buffer, buffer'Size);
>         MyTreatment2(buffer, buffer'Size);
>         MyTreatment3(buffer, buffer'Size);
> end;
>
> But How can I do this since I can't declare a string without constraint?

The simplest way is to use a bounded or unbounded string:

declare
  S : Unbounded_String;
begin
  case Some_Test is
     when T1 => S := To_Unbounded_String ("test1");
  ...
end;

Another way is to use a table like you can in C:

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;