Defina DataSet.Filtered := True
e adicione o seguinte código ao OnFilterRecord do seu DataSet:
procedure TForm1.DataSetFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept := AnsiContainsText(DataSet.FieldByName(Field).AsString, Value);
end;
Field e Value devem ser variáveis no seu form que são definidas pelo seu botão de pesquisa (juntamente com Filtered = True
).
Adicione também StrUtils
ao uses
para poder usar a função AnsiContainsText
.
PS: A menos que sua aplicação seja local, com um BD pequeno, você não deve usar isso. Eu, pelo hábito, não usaria nem nesse caso. Faria uma query dinâmica mesmo. Esse filtro opera localmente (assim como a propriedade Filter
) e se você estiver em uma rede, isso significa que você está trafegando a tabela inteira para depois filtrar localmente (e com certeza sem índices, otimizações e o poder computacional do servidor). Na minha experiencia, o maior gargalo de performance está no tráfego de rede, então isso tem o potencial enorme para fazer uma aplicação MUITO lenta.