Experimente tirar a linha Dmodule.DsTotLotesPAT.Next;
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Adolfo Stotz Enviada em: quinta-feira, 20 de setembro de 2007 16:44 Para: delphi-br@yahoogrupos.com.br Assunto: [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 ---------------------------------------------------------- begin with Dmodule.DsTotLotesPAT do begin Dmodule.DsTotLotesPAT.Close; Dmodule.DsTotLotesPAT.Open; Dmodule.DsTotLotesPAT.First; while not Dmodule.DsTotLotesPAT.Eof do begin Dmodule.DsTotLotesPAT.Delete; Dmodule.DsTotLotesPAT.Next; end; end; Dmodule.DsTotLotesPAT.Close; ---------------------------------------------------------- [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]