[Resolvido] Localizar e Deletar registros

olá a todos!

esta acontecendo o seguinte, ao tentar deletar qualquer registro, com o seguinte comando:

dm.SDSPagar.First;

while not dm.SDSPagar.Eof do

begin

dm.SDSPagar.Locate('cont',dm.SDSEntrada.FieldByName('tipo').AsInteger,[locaseinsensitive]);

if dm.SDSEntrada.FieldByName('tipo').AsInteger = dm.SDSPagar.FieldByName('cont').AsInteger then

dm.SDSPagar.Delete;

dm.SDSPagar.Next;

end;

se os registros estiverem no final da tabela o ultimo não é deletado!, so apaga todos os selecionados se o ultimo registro for diferente dos selecionados.

Dorgival

Resolvido!!

While dm.SDSPagar.Locate('cont',dm.SDSEntrada.FieldByName('tipo').AsInteger,[locaseinsensitive]) do

dm.SDSPagar.Delete;

vlw,