Perdona que me meta donde no me llaman, pero a ese proceso no le hace falta ningun label que diga insertando. Simplemente le hace falta que el label diga "Espere por favor".
Ya ves, la eficiencia está reñida con la apariencia. En el bucle de Neftali, deberás añadir "FormaDelLabel.Update", y en cada inserción:
- Cambia el label (label1.caption := .....)
- Espera por la cola de mensajes (application.ProcessMessages)
- Obliga a Repintar el form (form.Update).
¡¡ Y todo esto ralentizará las inserciones más de lo que piensas !!. Obviamente estas triplicando el tiempo, por mostrar un simple label
.
Si despues de 1 segundo (cuando ha terminado la inserción), dice el label final: Insertados 1 millon y medio de registros, el usuario dirá uuuAAAUUU, increible, rapidísimo, este tio es un "maquina", Sin embargo, si se tira 3 o 4 segundos mirando el númerito del label que parece un cronómetro, cuando termine simplemente dirá: "Que bonito".
saludos
22-10-2005
Modo Hilado