رسالة خطأ بخصوص الفلترة

[abdelali91]

السلام عليكم
قمت بعمل فلترة في الحدث on change لعنصر edit لكن عندما أقوم بعملية الفلترة تظهر رسالة خطأ
كالتالي

كود :

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another

[Anter2010]

PHP كود :

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text <>'' then
begin
ADOTable1.Filter := 'Nom_et_Prénom like '+ quotedstr('*'+ Edit1.Text +'*');
ADOTable1.Filtered :=true;
end
else
ADOTable1.Filtered :=false;
end; 


[abdelali91]

بارك الله فيك أخي
الأن اشتغل معي الكود
المشكلة كانت في انه يجب وضع edit بين نجمتين و انا قمت بوضع نجمة واحدة فقط
شكرا

[Dz SofT]

تفضل

كود :

http://www.dz-soft.net/2012/01/blog-post_932.html