读文件时，统计行数，为何比实际的多一行

Question

我的程序如下，现象是如果boat.txt中有10行，total的结果是11，在输出的boat1中最后多的一行是0 0 为什么，我换成fortran程序total的结果就是10 ？？
 var
g,f:textfile;
i,j,scale,multiple,total:integer;
xmax,ymax,xmin,ymin:integer;
nn,nx,ny,nb:integer;           begin
  assignfile(f,'E:\kong\delphi\picture\boat.txt');
  assignfile(g,'E:\kong\delphi\picture\boat1.txt');
  reset(f);
  rewrite(g);  total:=0;
  while not eof(f) do  begin  readln(f,i,j);
  writeln(g,i,j);   total:=total+1;  end;
  closefile(f);
  closefile(g);  memo1.lines.Add(inttostr(total));
end;
end.

Answer 1

有些文本在末尾有空行，fortran可能没有把这个算进去。你用二进制编辑器看看？