Re: Help regarding Help File

[Matthew Heaney <matthew_heaney@acm.org>]

"rvr@Networx.net.au" (Bexley) writes:

>    procedure Help is
>       Help_char:character ;
>    begin
>       Open(Help_File,In_File,"tax.hlp");
>       while not End_Of_File (Help_File) loop
>          Get(Help_File,Help_Char);
>          Put(Help_Char);
>       end loop; --end_of_file loop
>       Close(Help_File);
>    end Help;
> 
> the problem is that this code isn't moving to the next line when the text in 
> the file is..

The problem is that Get (F, C) silently consumes the end-of-line
terminator.  One solution is to just read in a line, and output a
terminator yourself, ie

procedure Help is
   Line : String (1 .. 80);
   Last : Natural;
begin
   while not End_Of_File (F) loop

      loop
         Get_Line (F, Line, Last);
         Put (Line (1 .. Last));
         exit when Last < Line'Last;
      end loop;
  
      New_Line;

   end loop;
end Help;