[Resolvido] Localizar e Deletar registros

[dorgi 0]

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,