Re: Reading data from file

[Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>]

On 03/09/2014 03:39 PM, Laurent wrote:
>
>              Read_From_File : loop
>                 Read_File : loop
>                    Read_Record : loop

I don't know, but I suspect it has something to do with having 3 loops when you 
only need 1:

    Ada.Text_IO.Open (...);

    Read_All_Records : loop
       Employees.IO.Read_Employee_From_File (...);

       exit Read_All_Records when End_Of_File or End_Of_Record;

       Database.Insert (...);
       ...
    end loop Read_All_Records;

    Ada.Text_IO.Close (...); -- Don't forget this.

-- 
Jeff Carter
"Why, the Mayflower was full of Fireflies, and a few
horseflies, too. The Fireflies were on the upper deck,
and the horseflies were on the Fireflies."
Duck Soup
95