[fpc-pascal]unix EOF

Jonas Maebe jonas at zeus.rug.ac.be
Thu Jun 6 21:53:42 CEST 2002


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





More information about the fpc-pascal mailing list