Help regarding Help File

Help regarding Help File

[rvr@Networx.net.au]

Howdie

I'm writing a program that needs to read in from a file, one full page of help

at the moment it looks like this:
   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 result is a page of information being squashed into only a few lines
any Idea's would be apreciated
thanx

Re: Help regarding Help File

[Matthew Heaney]

"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;