Re: Reading a text file

[Marin David Condic <mcondic.nospam@acm.org>]

Mathias Dolidon wrote:

> Instead of "Read(Data_File, St)" write "Get_Line(Data_File, St)".
>

From the ARM 10.1(49)

49.   procedure Get_Line(File : in  File_Type;
                           Item : out String;
                           Last : out Natural);

You've got the right idea, but you will need a "Last" actual parameter, which
indicates the last character in the string.

BTW, while the exception trap will, in fact, work for detecting EOF, I'd
consider it a bit abnormal. EOF is a condition you expect to arrive at sort
of like getting to the end of an array with an index. Most people would not
terminate an array scanning loop by trapping Constraint_Error, even though
it would work. Exceptions are generally considered an indication of some
unexpected condition or error. You would not usually use them for "normal"
program conditions.

MDC
--
======================================================================
Marin David Condic - Quadrus Corporation - http://www.quadruscorp.com/
Send Replies To: m c o n d i c @ q u a d r u s c o r p . c o m
Visit my web site at:  http://www.mcondic.com/

    "Giving money and power to Government is like giving whiskey
    and car keys to teenage boys."

        --   P. J. O'Rourke
======================================================================