Как очистить таблицу, оставив только структуру

Замечание:

Этот пример не работает в режиме редактирования, так как таблица должна быть открыта в эксклюзивном режиме.

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;

Другое по теме:

• Database Desktop показывает содержимое таблиц шрифтом без русских букв
• Динамическое создание таблицы и полей во время выполнения программы
• Естественные ключи против искусственных ключей