Показать сообщение отдельно
  #1  
Старый 07.06.2011, 14:26
Sleipnir Sleipnir вне форума
Прохожий
 
Регистрация: 06.05.2011
Сообщения: 18
Репутация: 10
Восклицание Удаление записей в ADOTable

День добрый.
Есть у меня ADOTable.

Код:
      Form1.ADOTable1.DisableControls;
      Active  := Form1.ADOTable1.Active;
      Form1.ADOTable1.First;
      while not Form1.ADOTable1.Eof do
        begin
          aa  := Trim(Form1.ADOTable1.FieldByName('ZAKAZ').AsString);
          if aa = '' then
            begin
              Form1.ADOTable1.Delete;
            end
          else
            Form1.ADOTable1.Next;
        end;
      if Form1.ADOTable1.Modified then
        Form1.ADOTable1.UpdateBatch();
      Form1.ADOTable1.EnableControls;

Вот так убираю из таблицы не нужные мне записи.
В DBGrid отображается все правильно, но сам файл физически не очищается.

Собственно вопрос: как убрать записи из файла?
Ответить с цитированием