كود سورس لطريقة الفلتري في لغة الدالفي : بعد اضافة وربط الجدول :

كود سورس لطريقة الفلتري في لغة الدالفي :
بعد اضافة وربط الجدول :
procedure TForm3.Edit2Change(Sender: TObject);
begin
if Edit2.Text<>'' then
begin
   ADOTABLE1.Filter := ' produit like '+QuotedStr(Edit2.Text+'*');
    ADOTABLE1.Filtered := true;

end
else
begin
    ADOTABLE1.Filtered := false;

end;