بسم الله الرحمان الرحيم
أخي جرب هذا:
أتمنى أن يناسبك و بالتوفيق
أخي جرب هذا:
كود :
procedure TForm1.Edit1Change(Sender: TObject);
begin
table1.Filter:='champ='''+edit1.Text+'*''';
table1.Filtered:=true;
end;
