Re: Ada 2005 problem using Iterate

[Roger <rogermc@grapevine.com.au>]

Thanks Alex,
As expected, a simple reason!

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;