Re: String declaration and initialization

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

> declare
>    function Test return String is -- Ada has scoped subprograms
>    begin
>       case Some_Test is
>          when Test_1 => return "Test1";
>          ...
>       end case;
>    end Test;
>    Buffer: constant String := Test;
> begin
>    My_Treatment_1 (Buffer);
>    ...

Good idea, but there are some other treatments in the case actually.

something like:
buffer := test1;
buffer_type := 3;
and so on.

So if I use another function, I have to implement 2 cases in order to do it.