مشکل در حذف رکورد ها

[mahmood-r-sh]

من از paradox 7 استفاده میکنم . کد زیر رو که اجرا میکنم , تعدادی از رکوردها حذف نمیشن ! رکوردهای با اندیس زوج رو حذف نمیکنه . چرا ؟ لطفا راهنمایی کنید و کد درستش رو در اختیارم قرار بدید .


table2.Open; // Delete Related Chapters From Table2
table2.Filter:='BookID='+IntToStr(id);
table2.Filtered:=true;
table2.First;
while not table2.Eof do
begin
table2.Delete;
table2.Next;
end;
if table2.RecordCount>0 then ShowMessage('تعداد رکوردهاي حذف نشده برابر است با'+INTTOSTR(table2.RecordCount));
Table2.Filtered:=false;
table2.Close;

[tdkhakpur]

بصورت زیر کد را اصلاح کنید


while not table2.Eof do
begin
table2.Delete;
// table2.Next; حذف شود
end;

دلیلش هم اینه که خود delete این کار را برای شما انجام میدهد.