Re: looping through variable length array

["Martin Dowie" <martin.dowie@nospam.baesystems.com>]

"Stephen Frackelton" <stephen.frackelton@baesystems.com> wrote in message
news:3c96047c$1@pull.gecm.com...
> i'm attempting to loop through a set of arrays, but theses arrays are of
> different lengths to cater for various message sizes.
> but i want to write the loop only once to cater for this.
> how is the best way to model this ?
>
> can i somehow use an unconstrained array ?
>
> if i have my data available in a fixed size array, how can i get this
> variable into a format i can loop through, regardless of the size of the
> array.

declare

   procedure Looping_Routine (Message : String) is
   begin
      for Index in Value'Range loop
         -- Do somthing with Message (Index)
      end loop;
   end Looping_Routine;

   Array1 : String (1 .. 10);
   Array2 : String (1 .. 100);

begin
   Looping_Routine (Message => Array1);
   Looping_Routine (Message => Array2);
end;