Удаление всех записей в таблице

  • Автор темы DoctorChe
  • Дата начала
D

DoctorChe

Гость
#1
Здравствуйте!
Необходимо удалить все записи из таблицы.
Делаю так
Код:
procedure TForm1.DelAllClick(Sender: TObject);
begin
Form1.tbStd.Active := False;
Form1.tbStd.EmptyTable;
end;
Выдаёт ошибку "Table is busy".
Как побороть?

Всё перепробовал и перегружался - результат один.
Как можно ещё закрыть таблицу, если не "Active := False"?

Может можно как-то посчитать строки и удалить по одной?
 
D

DoctorChe

Гость
#2
Сделал так:
procedure TForm1.DelAllClick(Sender: TObject);
Код:
begin
Form1.tbStd.Last;
while not tbStd.Bof do begin
Form1.tbStd.Delete;
Form1.tbStd.Prior;
end;
end;
Но не удаляет первую строку.
 
P

perceptron

Гость
#4
Если записей в таблице очень много, то по времени быстрее будет DROP Table сделать и создать таблицу заново.