为什么我编译不能通过

[snowfoxyr]

我联了一个数据库后想让“下一条”这个按钮多个功能就是到了最后一条弹出“已经是最后一条”这个对话框，可是编译总说：'；'not allowed before 'else'
procedure TForm1.Button1Click(Sender: TObject);
begin
if ADOQuery1.Eof then
begin
ADOQuery1.Next;
end;
else
ShowMessage('已经是最后一条');
end;
end.

但改成这样也不对：
procedure TForm1.Button1Click(Sender: TObject);
begin
if ADOQuery1.Eof then ADOQuery1.Next;
else
ShowMessage('已经是最后一条');
end;
end.

[lxpbuaa]

else的上一行去掉“;”

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[yujohny]

else 前怎么能有分号？？？？
基本语法错误

[WWWWA]

if ADOQuery1.Eof then
begin
ADOQuery1.Next;
end
else
ShowMessage('已经是最后一条');
end;
end.

[lxpbuaa]

”可是编译总说：'；'not allowed before 'else'“

编译器不是告诉你了么！你又浪费100分！

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[WWWWA]

if ADOQuery1.Eof then
begin
ADOQuery1.Next;
end
else
ShowMessage('已经是最后一条');
end;
end.

[mysqlcom]

procedure TForm1.Button1Click(Sender:TObject)
begin
if ADOquery1.eof then
ShowMessage('the last record')
else
ADOQuery1.next;
end;

[yujohny]

你代码简化为这样：
if ADOQuery1.Eof then
ADOQuery1.Next
else
ShowMessage('已经是最后一条');

[MichealLee]

静下心来。看看注释。

[xgc521]

老兄，基本语法要熟悉。。。