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

Замечание:

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

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;