Apagando todos os registros da tabela

Para apagar os registros de uma tabela utiliza-se a funo delete.

Atravs de um comando de repetio (While)  possvel excluir todos os registros da tabela, usando como flag a quantidade de registros existentes na tabela (RecordCount > 0).

cdigo Completo:

Procedure ApagarTodosReg(Origem:TDataSet);
Begin
  With Origem do
  While RecordCount > 0 Then
  Delete;
End;
Como Usar:

ApagarTodosReg(Table1);
ou ApagarTodosReg(Query1);    

Autor : desconhecido

Voltar