Удаление записей из базы данных. Нужен совет

[Kvinto]

Всем доброго дня!

Прошу помочь советом. Вот код:

var
  d1, d2: TDate;
begin
 if Application.MessageBox('Удалить?','Подтвердите действие',MB_YESNO)=IDYES then
    begin
     form1.tab_zakaz_v.First;
     d1:=form1.tab_zakaz_v.FieldByName('time').AsDateTime;
     d2:=form24.DateTimePicker1.DateTime;
     while not form1.tab_zakaz_v.Eof do
     begin
      form1.tab_zakaz_v.Next;
      form24.Label3.Caption:=inttostr(form1.tab_zakaz_v.RecordCount);
      d1:=form1.tab_zakaz_v.FieldByName('time').AsDateTime;
       if d1<=d2 then
          begin
            form1.tab_zakaz_v.Edit;
            form1.tab_zakaz_v.Delete;
          end;
     end;
     form24.Close;
    end;
end;

Всё просто. Таблица просматривается от начала до конца и удаляются записи, дата которых РАНЬШЕ требуемой. По ходу перебора предполагалось, что на форму буде выводиться количество записей, оставшееся в таблице (строка выделена синим). НО этого не происходит. Форма как бы "подвисает" на всё время выполнения цикла.

Что не так? Подскажите...

[Gregor]

Конечно будет подвисать. Нужно делать перход на следующую запись

while not form1.tab_zakaz_v.Eof do
begin
  form1.tab_zakaz_v.Next;
  form24.Label3.Caption:=inttostr(for m1.tab_zakaz_v.RecordCount);
  d1:=form1.tab_zakaz_v.FieldByName(' time').AsDateTime;
  if d1<=d2 then
  begin
    form1.tab_zakaz_v.Edit;
    form1.tab_zakaz_v.Delete;
   end;
   form1.tab_zakaz_v.Next
end;

А вообще можно оформить и одним запросом на удаление соответствующих записей. будет компактней и понятней

[Kvinto]

Переход на следующую запись там есть. Выше "синей" строки. Код работает, записи удаляются.

[Kvinto]

Сообщение от Gregor

можно оформить и одним запросом на удаление соответствующих записей. будет компактней и понятней

Это как?

[Gregor]

delete from Table1 where dt1 <= :dt2

где dt - параметр у TQuery;

Пример .
Query1.Sql.Text := 'delete from Table1 where dt1 <= :dt2'
Query1.ParamByName('d2').asDateTime := dt2
try
 Query1.ExecSql;
except
  //Тут выводи в лог ошибку
end

Долфи под рукой нет , поэтому что то типа мнемокода написал

[Gregor]

Сообщение от Kvinto

Переход на следующую запись там есть. Выше "синей" строки. Код работает, записи удаляются.

Может после Delete нужно сделать Post ?

[Gregor]

и вообще ты сначала переходишь

form1.tab_zakaz_v.Next;

а потом работаешь с записью. а вдруг там уже EOF ?

[come-on]

удаление пройдет быстрее чем глазом моргнуть если удалять 1 запросом и не заниматься мазахизмом

[Аватар]

Edit перед Delete не нужен. Так же как и Post после Delete. И да, запросом более удачное решение