eof的疑惑，在线等？

[8water]

我的代码如下：

procedure Tfrm_jbxx_n.bbtn_nextClick(Sender: TObject);
begin
if not adoqry_model.Eof then
begin
adoqry_model.Next();
end
else
begin
bbtn_next.Enabled := false;
end;
end;
就是说当记录移到最后一条时，使得按扭bbtn_nextClick变灰。
可是每次已经移到最后了，这个按扭还是没有变灰，还要按两下才能变灰，怎么回事？

[gmmy0727]

这个方法很实用，同意楼上人的说法

[firetoucher]

adoqry_model.Next();
if adoqry_model.Eof then
bbtn_next.Enabled := false;

(代理服务器有问题,不能发长的留言,请原谅)
--------------------------------------
看！
那支正飞向太阳的蛾子.....
就是我！
--------------------------------------

[8water]

可是我相差两个呀！

[sheepcyk]

table1.Next;
if table1.Eof then
begin
button1.Enabled:=false;
//exit;
end;

[payzq]

up

[OO_is_just_P]

最后一条记录不是EOF,后面才是EOF。
可以看DBNavigator,一样的。

[Hank]

用这种方法吧：
bbtn_next.Enabled := not adoqry_model.Eof;
if bbtn_next.Enabled then adoqry_model.Next();

[yyfeng76]

同意楼上的方法。