Perguntinha básica, mas pq vc quer apagar linha por linha???? Kaputz, Robson Skype: kaputz_gri ----- Mensagem original ---- De: Rubem Nascimento da Rocha <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 20 de Setembro de 2007 16:50:35 Assunto: RE: [delphi-br] Deletar linhas
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] os.com.brFrom: [EMAIL PROTECTED] com.brDate: 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.DsTotLotesP AT dobeginDmodule. DsTotLotesPAT. Close;Dmodule. DsTotLotesPAT. Open;Dmodule. DsTotLotesPAT. First;while not Dmodule.DsTotLotesP AT.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] Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]