Muito bom, mas que tal TblClientes.Emptytable;
nao sei se escrevi certo, mas na epoca ( ha 10 anos) quando eu usava paradox, eu usava esse metodo.. ================= >De:"info.desenvolvimento" <[EMAIL PROTECTED]> >Para:<delphi-br@yahoogrupos.com.br> >Assunto:[delphi-br] Para apagar os registros de uma tabela > >Pessoal consegui essa dica de como apagar os >registros de uma tabela, que ela seja útil a >todos nos PROGRAMADORES que utilizam o PARADOX. >Para apagar os registros de uma tabela >utiliza-se a função delete. >Através de um comando de repetição (While) é >possível excluir >todos os registros da tabela, usando como flag a >quantidade de >registros existentes na tabela (RecordCount > >0). >Código Completo: > >Procedure ApagarTodosReg(Origem:TDataSet); >Begin >With Origem do > While RecordCount > 0 do >Delete; >End; >Como Usar: > >ApagarTodosReg(Table1); >ou ApagarTodosReg(Query1); > > > >[As partes desta mensagem que não continham >texto foram removidas] > > > >-- ><<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA >MENSAGEM >>>>> > >http://br.groups.yahoo.com/group/delphi-br/messa >ges > > [EMAIL PROTECTED] > >Links do Yahoo! Grupos > > http://br.groups.yahoo.com/group/delphi-br/ > > > http://br.yahoo.com/info/utos.html ____________________________________________________________________ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html