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.