مشکل Database Exception

[v_shalchian]

سلام
من یک ADOTable دارم و یک تابع که رکورد جاری را حذف می کند. وقتی که جدول خالی باشد یک اثتثناء روی

میدهد.
من کد زیر رو نوشتم ولی باز هم موقع خطا از برنامه خارج می شود.


try
Table.Delete ;
except
on EDatabaseError do ShowMessage ('Database Error');
end;

[مهدی کرامتی]

من همین کار را کردم، اما برای من کار میکند. این Exception چه وقت رخ میدهد؟ در محیط دلفی یا هنگام اجرای برنامه بصورت جداگانه؟

نمونه برنامه‌ای را که ساخته‌ام اینجا بعنوان ضمیمه قرار داده‌ام. آنرا در C:\01 باز کنید.

[v_shalchian]

این مشکل فقط در محیط دلفی اتفاق می افتد و وقتی فایل اجرایی برنامه را جدا اجرا می کنم کاملا درسته.
به نظر شما راهی داره که تو محیط دلفی هم درست کار کنه؟
با تشکر

[مهدی کرامتی]

در منوی Tools -> Debugger Options -> Language Exceptions تیک گزینه Stop On Delphi Exceptions را بردارید.

[Mashatan]

چرا اینجوری استفاده نمیکنی ؟!


if Not Table.IsEmpty then
Table.Delete;

[v_shalchian]

ممنون از راهنماییتان. در ضمن آقای Mashatan من منظورم این مثال خاص نبود.