Re: String declaration and initialization

[Jean-Pierre Rosen <rosen@adalog.fr>]

S�bastien a �crit :
> Hi,
> 
> Several times I had to do the following:
[...]
> 
> But How can I do this since I can't declare a string without constraint?
> 
declare
     function choose_the_right_one return string is
     begin
       case SomeTest is
         case TEST1 =>
           return "Test1";
         case TEST2 =>
           return "Test2";
       end case;
     end choose_the_right_one;

     buffer: String := Choose_The_Right_One;
begin
     MyTreatment1(buffer, buffer'Size);
     MyTreatment2(buffer, buffer'Size);
     MyTreatment3(buffer, buffer'Size);
end;

-- 
---------------------------------------------------------
            J-P. Rosen (rosen@adalog.fr)
Visit Adalog's web site at http://www.adalog.fr