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:41:09 -0300Subject: [delphi-br] Usando o codigo abaixo, a cada execução, sao apagadas ad linhas impares, mas as linhas áres 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 as últimas notícias do Brasil e do mundo direto no seu Messenger com Alertas MSN! É GRÁTIS! http://alertas.br.msn.com/ [As partes desta mensagem que não continham texto foram removidas]