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);
end.
---cut ttt.pp---

---cut---
$ ./ttt ttt.pp
Runtime error 100 at 0x08052164
0x08052164
0x080480B0
0x00000000
---cut---

please help me to find right way!

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

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

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

Michael.

Thanks!
But I can't find documentation on eof function in fpc 1.0.6 documentation PDF!

Cyril Zlachevsky wrote

Thanks! But I can't find documentation on eof function in fpc 1.0.6 documentation PDF!

It should be in the reference guide.

Jonas