Re: Trouble with TEXT_IUO on WinNT

[Matthew J Heaney <mheaney@on2.com>]

Alfred Hilscher <Alfred.Hilscher@icn.siemens.de> writes:

Don't use End_Of_Line.  To determine whether you've read all of the
current line, do this:

  Line : String (1 .. 255);
  Last : Natural;
begin

  Get_Line (Line, Last);

  if Last < Line'Last then
    --yes, we've read the entire line
  else
    --no, we have not read the entire line
  end if;


To iterate through a file comprising lines of text, where the maximum
length of lines isn't known, then you can do this:

declare
   function Get_Line return String is
     Line : String (1 .. 256);
     Last : Natural;
   begin
     Get_Line (Line, Last);

     if Last < Line'Last then
        return Line (1 .. Last);
     else
        return Line & Get_Line;
     end if;
begin
   while not End_Of_File loop
   declare
      Line : constant String := Get_Line;
   begin
      <do something with Line>
   end;
   end loop;
end;


If you don't understand why you shouldn't use End_of_Line, then surf the
AdaPower website for the article I wrote re the "Get_Line mystery."

<http://www.adapower.com/lang/get_line.html>