From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.237.32.33 with SMTP id 30mr514195qta.24.1475710057896;
        Wed, 05 Oct 2016 16:27:37 -0700 (PDT)
X-Received: by 10.157.55.181 with SMTP id x50mr1380070otb.7.1475710057850;
 Wed, 05 Oct 2016 16:27:37 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!news.glorb.com!g45no256294qte.1!news-out.google.com!w143ni1147itb.0!nntp.google.com!o19no383224ito.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Wed, 5 Oct 2016 16:27:37 -0700 (PDT)
In-Reply-To: <nt2cpp$bsh$1@dont-email.me>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=124.171.67.91;
 posting-account=d51RWwoAAADvR-x0zYAtT9z3CRxT1eXo
NNTP-Posting-Host: 124.171.67.91
References: <cb6a1464-5fd6-4ea7-ad38-153b6ee199ad@googlegroups.com>
 <nt2cpp$bsh$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <2cb77d60-b499-4476-88ae-66f9ab6f33ef@googlegroups.com>
Subject: Re: Ada 2005 problem using Iterate
From: Roger <rogermc@grapevine.com.au>
Injection-Date: Wed, 05 Oct 2016 23:27:37 +0000
Content-Type: text/plain; charset=UTF-8
Xref: news.eternal-september.org comp.lang.ada:32008
Date: 2016-10-05T16:27:37-07:00
List-Id: <comp.lang.ada>

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;