Удаление записей из Paradox

← →
Gregory (2002-11-09 09:39) [0]

У меня в цикле удаляются записи из БД. Возникает глюк: удаляются только первые 5 или 6 записей. Что делать?

← →
iNew (2002-11-09 09:42) [1]

Ошибка в 17-й строке.
Давай исходник.

← →
Gregory (2002-11-09 10:10) [2]

Вот исходник:
TableCar:=TTable.Create(Application);
TableCar.TableName:="db\cars.db";
TableCar.Active:=True;
CurrDate:=Date();

TableCar.First;
while not TableCar.Eof do
begin
DateRec:= TableCar.FieldValues["DateCars"];
if DateRec=CurrDate then
TableCar.Delete;
TableCar.Next;
end;

TableCar.Active:=False;
TableCar.Destroy;

← →
Leran2002 (2002-11-09 10:16) [3]

if DateRec=CurrDate then
TableCar.Delete
else
TableCar.Next;

← →
Leran2002 (2002-11-09 10:26) [4]

Q:TQuery;
...

Q.SQL.Clear;
Q.SQL.Add("DELETE FROM "cars.db"");
Q.SQL.Add("WHERE DateCars=""+DateToStr(Date)+""");
Q.ExecSql;

Удаление записей из Paradox Найти похожие ветки