borrar todos los registros de una Tabla

[GINMARMENOR]

Buenas, tengo Delphi 2.010 y uso Firebird 2.5.


Quiero borrar todos los registros de una Tabla, y dejarla limpiar para ello utilizo el siguiente código

Código Delphi [-]

                 TablaPedidos.Active:=true
                 while not TablaPedidos.Eof do
                     begin
                       Tablapedidos.delete;
                       TablaPedidos.next;
                     end;

Pero sólo me borra registros a saltos si hay 1000 registros, me borra 300 salteados 3 no los borra 1 si si lo borra, tengo que pasar cuatro o cinco veces este codigo para que lo borre todo,

He estado mirando en internet pero todos los códigos son parecido a este, pero no sé por qué no los borra todos y deja la tabla limpia.

Si me pueden ayudar, gracias.

[[oscarac]]

y porque no usas mejor un delete from tabla ???

tambien le estas haciendo next lo que hace que el siguiente registro activo lo salte

[Neftali [Germán.Estévez]]

Hay varias formas de borrar todos registros de una tabla. Una de ellas es la que has puesto tú, pero es la menos eficiente. Peor (de eficiencia) cuantos más registros existan en la tabla.

Digamos que si estás utilizando componentes (como estás haciendo tú), en este caso parece un TTable, puedes utilizar el método EmptyTable, que en un sólo paso borra todos los regstros de la tabla.
Revisa este link:
https://docwiki.embarcadero.com/Libr...ble.EmptyTable

Estaría bien tanto con el código que has puesto antes, como con el EmptyTable, utilizar los métodos EnebleControls y DisableControls, para bloquear el refresco visual (acelera mucho las operaciones, sobre todo cuando hay muchos registros).
Revisa este link:
https://docwiki.embarcadero.com/Libr...EnableControls
Ahí mismo tienes un ejemplo de utilización.

Más rápido que los anteriores (que usan componentes) es hacerlo directamente sobre la Base de datos, con un TQuery por ejemplo (como ya te ha comentado [oscarac]), y con la SQL sencilla para borrar todos los registros.

Con todo esto deberías poder borrar TODOS los registros de la tabla. Cualquiera de los métodos, más lento o más debería hacerlo.
Otro problema es porqué no te borra todos los registros (cuando debería hacerlo, como te he dicho), con tu código.

Sólo se me ocurre que tengas relaciones entre registros y por temas de claves foráneas (por ejemplo) y eso esté impidiendo que se borren.
¿Es posible?
¿Estás capturando excepciones de alguna forma que enmascaren esos errores?

[chenech]

Cuando haces un delete se posiciona en el siguiente registro, por lo cual el next siguiente te avanza al siguiente de nuevo y ese no lo borra.
Simplemente quita el next y ya está, resumiento, o delete o next, ambos avanzan una posicion.
Yo lo uso para borrados selectivos por ejemplo, si se cumple una condicion delete, else next, pero nunca los dos a la vez.
Un saludo.

[GINMARMENOR]

Gracias a todos, en principio se me ha solucionado, quitando la siguiente línea,

Código Delphi [-]
                           tablapedidos.next;

la proxima vez utilizaré EmptyTable, aunque ha sido rápido con delete, compararé para tener más recursos.

Gracias.