Apagar todos os registros de uma table, mantendo a estrutura

procedure TForm1.Button2Click(Sender: TObject);
begin
  {Abrir a tabela em modo exclusivo}
  Try
  With Table1 Do
  Begin
    Active:=False;
    Exclusive:=True;
    Active:=True;
    try
    EmptyTable;
    except
    ShowMessage( 'no  possvel limpar a tabela');
  end;
End
Except
ShowMessage('no  possvel abrir a tabela em modo exclusivo');
End
end;
    

Autor : desconhecido

Voltar