A veces es interesante borrar todos los registros de una tabla, dejando tan sólo su estructura.

NOTA: No funcionará con el Delphi abierto, pues es necesario abrir la tabla en modo exclusivo:

 procedure TForm1.Button2Click(Sender: TObject);
 begin
   {Abrimos la tabla en modo exclusivo (si se puede)}
   Try
     With Table1 Do
     Begin
       Active:=False;
       Exclusive:=True;
       Active:=True;
       try
         EmptyTable;
       except
         ShowMessage( 'No se ha podido vaciar la base de datos.');
       end;
     End
   Except
     ShowMessage('No se ha podido abrir la tabla en modo exclusivo, compruebe que no hay usuarios accediendo a ella.');
   End
 end;

Publicado el: 2003-09-17