Eliminar ultimo registro de un dbgrid

[lisc_dla]

mi bd esta hecha en mysql y la conexión que utilizo es ADOTable-->DataSource-->DBgrid
tengo un botón de eliminar todo funciona bien pero cuando elimino el ultimo registro de la tabla me marca error

[[oscarac]]

y podrias decir que error marca?

para que la genteita del foro tenga una mejor vision de la problematica...trata de ser lo mas explicito posible..., porque si no mencionas detalles como el "error", entonces quedamos en el aire comprendes?

[lisc_dla]

perdón no me exprese bien, si elimina el ultimo registro bien. pero si no tengo registro y si por error se le da clic al botón de eliminar es cuando surge el error

[[oscarac]]

entonces en el boton eliminar has una pregunta

aqui el pseudocodigo

Código Delphi [-]
 
if not tabla.eof then
   delete
else
mensaje.... no hay registros para eliminar

[[Caral]]

Hola

Código Delphi [-]
 If AdoTable1.RecordCount = 0 then
    showmessage('no hay nada que borrar');

Saludos

[[newtron]]

... o esto:

Código Delphi [-]
try
  AdoTable1.delete
except
  ShowMessage('No se ha borrado ningún registro');
end;

[ecfisa]

Hola.

Otra opción más:

Código Delphi [-]
procedure TForm1.btnEliminarClick(Sender: TObject);
begin
 if ADOTable.IsEmpty then
    MessageDlg('No hay registros para borrar',mtError,[mbOk],0)
  else
    ADOTable.Delete;
end;

Opciones no te faltan...

Saludos.