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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Замечание:

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

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;

{/codecitation}

Добавить комментарий