Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как очистить базу данных, оставив только структуру?

01.01.2007

ЗАМЕЧАНИЕ: Этот пример не работает в режиме редактирования, так как таблица должна быть открыта в эксклюзивном режиме.

procedure TForm1.Button2Click(Sender: TObject); 
begin
 
{Opens the table in exclusive mode}
 
Try
   
With Table1 Do
   
Begin
     
Active:=False;
     
Exclusive:=True;
     
Active:=True;
     
try
       
EmptyTable;
     
except
       
ShowMessage('Cannot empty database');
     
end;
   
End
 
Except
   
ShowMessage('cannot open table in exclusive mode');
 
End
end;

Взято из https://forum.sources.ru

Примечание Vit

Если требуется очистить таблицу не прибегая к эксклюзивному доступу или используя другие способы доступа помимо BDE то рекомендуется выполнить квери:

Delete From MyTable

Которая полностью очистит таблицу. Для MS SQL Server существует и другой способ - выполнение квери:

Truncate Table MyTable

Различие между Delete и Truncate заключается в том, что для операции Delete создаётся запись в Transaction log, что обеспечивает более высокую надёжность, но при больших таблицах выполнение Delete может быть весьма долгим. Напротив, Truncate в  Transaction log не попадает и таблица любых размеров необратимо очищается практически мгновенно вне зависимости от её размера. Delete - стандартная операция SQL и поддерживается всеми базами данных, напротив, Truncate - операция  не стандартная, поэтому поддерживается лишь отдельными базами данных.