Re: Ada 2005 problem using Iterate

["Alejandro R. Mosteo" <alejandro@mosteo.com>]

On 06/10/16 01:27, Roger wrote:
> Thanks Alex,
> As expected, a simple reason!

Tunnel vision happens ;)

Can't you use Element directly on the cursor?

Alex.

>
> Code that works:
>
> with Ada.Text_IO; use Ada.Text_IO;
>
> package body Numbers is
>     Numbers_List : tNumbers_Vector;
>     function  New_Record(n1 : Integer; n2 : Integer) return tnumbers is
>         theRecord : tnumbers := (n1, n2);
>     begin
>         return theRecord;
>     end New_Record;
>
>     --  ----------------------------------------------------------------------------------------------------
>
>     procedure Print_Numbers_Data  (Numbers_Vector : tNumbers_Vector) is
>
>         procedure Show_Two_Numbers(Number_Cursor : pNumbers_Vector.Cursor) is
>              aNumber_Record    : tnumbers;
>         begin
>              aNumber_Record := Numbers_Vector.Element(pNumbers_Vector.To_Index(Number_Cursor));
>              Put("Number 1: " & Integer'image(aNumber_Record.n1));
>              Put_Line("      Number 2: " & Integer'image(aNumber_Record.n2));
>          end Show_Two_Numbers;
>
>     begin
>         Numbers_Vector.Iterate(Show_Two_Numbers'Access);
>     end Print_Numbers_Data;
>
>     --  ----------------------------------------------------------------------------------------------------
>
>  procedure Load_Numbers(Numbers_Vector : in out tNumbers_Vector) is
>  begin
>     for index in Natural range 0..3 loop
>         Numbers_Vector.Append(New_Record(index + 2, 2* index + 1));
>     end loop;
>  end Load_Numbers;
>
> end Numbers;
>