[Doctor_Che]

Необзодимо удалить все записи из таблицы.
Делаю так

Код:

procedure TForm1.DelAllClick(Sender: TObject);
begin
  Form1.tbStd.Active := False;
  Form1.tbStd.EmptyTable;
end;

Выдаёт ошибку
"Table is busy"
Как побороть?

[XaKeR282]

Попробуй так:
Form1.tbStd.Clear

[Doctor_Che]

Говорит Undeclared identifier 'Clear'

[Black Raider]

положи компонент Query с запросом

Код:

Delete from TableName

и на кнопку

Код:

Query.ExecSql;

[Doctor_Che]

Сделал так:

Код:

procedure TForm1.DelAllClick(Sender: TObject);
begin
  Form1.tbStd.Last;
  while not tbStd.Bof do begin
  Form1.tbStd.Delete;
  Form1.tbStd.Prior;
  end;
end;

Но не удаляет первую строку.

[Black Raider]

А почему с конца то?
Попробуй так

Код:

  Form1.tbStd.First;
  while not tbStd.Eof do begin
  Form1.tbStd.Delete;
  end;