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

[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;