不支持 Filter = 'name like'    需要模糊查询只有' name = A*' 匹配只能从第一个字母开始，无法达到要求.后来在OnFilterRecord中解决

 TQuery.Filtered := False;

TQuery.Filtered := True;

会触发OnFilterRecord事件

procedure OnFilterRecord(DataSet: TDataSet; Accetp:Boolean)

begin

  Accept := False;//所以值不显示

 if  Pos('9787',DataSet.FieldsByName('青年文摘').AsString) > 0 then

 Accept := True;

end;

得以实现