04-03-2015, 09:42 AM
أخي استعملت كود الفلترة التالي :
بعد التنفيد تظهر الرسالة
كود :
begin
if edit1.text<> ''then
begin
table1.Filter:= 'nom like'+quotedstr('*'+edit1.Text+'*');
table1.Filtered:=true;
end
else
table1.Filtered:=false;
end;
end.
اللهم ارحمنا فوق الأرض و تحت الأرض و يوم العرض

