[fpc-pascal]unix EOF

[Jonas Maebe]

On Thu, 6 Jun 2002, Cyril Zlachevsky wrote:

>      Reset(f);
>      while (TmpChar <> #26) do read(f,TmpChar);
> end.
> ---cut ttt.pp---

Use

while not(eof(f)) do read(f,TmpChar);


Jonas