[fpc-pascal]unix EOF

[Michael Van Canneyt]

On Thu, 6 Jun 2002, Cyril Zlachevsky wrote:

> I try to find correct way finding end of file (EOF) in fpc-program, but
> not have success:
> ---cut ttt.pp---
> var
>      f           :       file of char;
>      TmpChar     :       char;
> begin
>      TmpChar:=' ';
>      Assign(f,paramstr(1));
>      Reset(f);
>      while (TmpChar <> #26) do read(f,TmpChar);

On Unix, files are not terminated with CTRL-Z. use

While Not EOF(F) do read (f,TmpChar);

Michael.