delphi中怎样判断二进制文件的结束？

[longks]

Eof好像只能判断文本文件得结束的？
二进制文件的打开和文本文件是不是一样的呢？

[Magusflp008]

先获取文件大小，再读文件，读到和文件大小一样时不就是文件结束

[liuyb]

if not eof(filea) then
begin
//未到文件尾
end;

[longks]

能写给详细点的例子吗？如果能帮忙，还可以加分，我试了，但是是错的
你看我是怎样写的
fileread:file;
r:longint;
s:integer;
filen:integer;
fileall:integer;
begin
r:=FileOpen(form1.OpenDialog1.filename,fmOpenRead);
filesize:= fileseek(r,0,2);
fileseek(r,0,0);
assignfile(fileread,form1.OpenDialog1.FileName);
reset(fileread);
blockread(fileread,s,sizeof(s),filen);
fileall:=0;
while(fileall < filesize)
do begin
....
end
end
运行时在reset(fileread)处有错
搞不懂？