Hola,
Gracias Federico: funciona estupendamente, perfectamente, tal como se podía esperar. En cuanto eché el ojo a la palabra "repeat" me vino a la mente lo que había leído en cierto libro, del cual transcribo cuasi literalmente:
Cita:
|
Empezado por El gran libro de Delphi 2 - ISBN: 84-267-1087-5
Sugerencia: bucles repeat
Los bucles repeat se utilizan frecuentemente en las tareas en las que el
usuario de su propio programa puede determinar si se debe ejecutar una
vez más el bucle. En las últimas líneas del cuerpo del bucle se implementa,
a través de un cuadro de mensaje, la consulta sobre si se debe ejecutar
otra vez el bucle. Si pulsa OK, se repite el bucle; en caso contrario, se
ejecuta el bloque de programa que sigue al bucle.
|
Habré leído ese párrafo más de una vez pero, desde luego, sin tu respuesta primero no me hubiera acordado, y, segundo, a saber si hubiera sabido implementarlo tal como puedes verlo en el
archivo adjunto del hilo que acabo ahora de actualizar y que paso a leer a continuación...
Muchas gracias
Federico: funciona estupendamente.
Actualización: En lugar de "E: Exception" he utilizado "E: EFOpenError", ¿se ve mejor así en este caso, verdad?