06-09-2013, 10:46 AM
تفضل
كود :
ADOTable1.Filtered := False;
ADOTable1.Filter := 'Name like ' + QuotedStr('*' + Edit1.Text + '*');
ADOTable1.Filtered := True;