[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;

[TOJluK]

И все- таки переходить надо на TQuery.

[Doctor_Che]

Сообщение от Black Raider

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

Код:

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

Отлично сработало! Спасибо!

[Страдалецъ]

Просто чудно. А теперь сделайте то-же самое хотя-бы с 10000 записей в таблице и оцените потери времени. Вот так попробуйте:

Код:

 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

(С) Delphirus.com