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;
procedure TForm1.btnEliminarClick(Sender: TObject); begin if ADOTable.IsEmpty then MessageDlg('No hay registros para borrar',mtError,[mbOk],0) else ADOTable.Delete; end;