Re: String declaration and initialization

["Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>]

On Thu, 22 May 2008 15:47:38 +0000, S�bastien wrote:

> Several times I had to do the following:
> 
> 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);

You don't need buffer'Size, even if you incidentally meant buffer'Length...

> 	MyTreatment2(buffer, buffer'Size);
> 	MyTreatment3(buffer, buffer'Size);
> end;
> 
> But How can I do this since I can't declare a string without constraint?

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);
   ...

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de