Re: How to loop (elegant) throug a vector ?

[Pascal Obry <pascal@obry.net>]

Reinert Korsnes a �crit :
> Could anybody suggest improvements for the three
> last lines in the code?

A solution using the Iterate routine:

    procedure Do_Something (P : X_t.Cursor) is
       E : constant Item_T := Element (P);
    begin
       ...
    end Do_Something;

    X.Iterate (Do_Something'Access);

Another solution would be to loop using a cursor, something like:

    P : X_t.Cursor := X.First;

    while Has_Element (P) loop
       Do_Something (P);
       Next (P);
       --  With this loop it is possible to exit before the end
       --  exit when <some_condition>;
    end loop;

Both example have not been compiled, so could have some syntax error but 
you get the idea.

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|              http://www.obry.net
--| "The best way to travel is by means of imagination"
--|
--| gpg --keyserver wwwkeys.pgp.net --recv-key C1082595