Puro erro de lógica! Quando vc faz o Delete(), na hora vc já se posiciona no registro seguinte, por isso não precisa desse Next(). Reavalie a lógica desse laço. Sds.
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Thu, 20 Sep 2007 16:43:38 -0300Subject: [delphi-br] Deletar linhas Usando o codigo abaixo, a cada execução, sao apagadas as linhas impares, mas as linhas pares nao sao deletadas. Porque ? Como fazer para acertar ?Grato----------------------------------------------------------beginwith Dmodule.DsTotLotesPAT dobeginDmodule.DsTotLotesPAT.Close;Dmodule.DsTotLotesPAT.Open;Dmodule.DsTotLotesPAT.First;while not Dmodule.DsTotLotesPAT.Eof dobeginDmodule.DsTotLotesPAT.Delete;Dmodule.DsTotLotesPAT.Next;end;end;Dmodule.DsTotLotesPAT.Close;----------------------------------------------------------[As partes desta mensagem que não continham texto foram removidas] _________________________________________________________________ Receba GRÁTIS as últimas novidades do esporte direto no seu Messenger! http://signup.alerts.live.com/alerts/login.do?PINID=37485679&returnURL=http://www.nivea.com.br [As partes desta mensagem que não continham texto foram removidas]