(Resolvido) varrer tabela e deletar registro

[vms]

Olá pessoal,

tenho um banco de dados firebird conectado com os componentes da paleta dbexpress

SQLConnection1

SQLTable1

DataSetProvider1

ClientDataSet1

DataSource1

estou varrendo a tabela e deletando os registros, mas so deleta a metade.

ex: tenho 1000 registro, quando clico fica ainda 500 e se clico denovo fica 250, sempre deleta a metade. o que pode ser?

ClientDataSet1.First;
 if not ClientDataSet1.Eof then
  repeat

  ClientDataSet1->Delete;

  ClientDataSet1.Next
  until ClientDataSet1.Eof;

desde já agradeço.

[DanielR]

no teu caso faria o seguinte

clientedataset.first;

try

while not clientedataset.eof do

clientedataset.delete

except

on E: Exception do

end;

o next você não pode dar por que o registro já saiu da sua lista, logo o proprio clientedataset seposiciona no seguinte, como next ele pula 1, por isso ta ficando coisas sem deleção.

[vms]

consegui fazer, valeu

[Pirambu!]

Desta forma,se o curso não estiver no primeiro pode sobrar alguns registro tenta esta forma usando query.

With Query do
begin
    close;
   sql.clear;
   sql.add('delete  from Tabela');
   execsql;
end;