مشكلة في استخدام sql مع adoquery

[KANONI]

كود :

q1.Close; q1.SQL.Clear; q1.SQL.Text:='select* from sader where corp = :destination'; q1.Parameters.ParseSQL(q1.SQL.Text, True); q1.Parameters.ParamByName('destination').value:=dest.Text; q1.Open;

عندما لا توجد بيانات في البحث يصير كراش للبرنامج و تظهر رسالة تفيد أنه EOF أو BOF

[kachwahed]

أولا: ألق السلام أخي الكريم
السلام عليكم

عندما لا توجد بيانات في البحث يصير كراش

إذن يجب التحقق من وجود البيانات قبل الاستعلام، بشيء مثل هذا:

كود :

if q1.IsEmpty then Exit;

بالتوفيق.

[محمد س]

لا أعتقد أن الكود الذي وضعته هو سبب المشكل، و إنما في الكود الموالي

.....
Q1.open;
while not q1.eof do
begin
.....

End;