Re: String declaration and initialization

[Sébastien <seb.morand@gmail.com>]

> No. Make a record of the test name and the test type:
> 
> declare
>    type Test_Type is range 1..20;
>    type Test_Case (Length : Positive) is record
>       Kind : Test_Type;
>       Name : String (1..Length);
>    end record;
>    function Test return Test_Case is -- Ada has scoped subprograms
>    begin
>       case Some_Test is
>          when Test_1 => return (Length => 5, Name => "Test1", Kind => 3);
>          ...
>       end case;
>    end Test;
>    Buffer: constant Test_Case := Test;
>  begin
>     My_Treatment_1 (Buffer.Name);
> 
> [ Observe, that the function Test is nothing but a classical factory. ]

Ok got it, I like this one, nice and efficient.

Thanks for your help.

Sebastien