为什么我编译不能通过
我联了一个数据库后想让“下一条”这个按钮多个功能就是到了最后一条弹出“已经是最后一条”这个对话框,可是编译总说:';'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.