Buenas, no se si esto te servira, con el siguiente ejemplo hace o que pides pero escribiendo en un edit, por la palabra que quieres que se realice el locate... Espero que te sirva, sino es asi dime como puedo ayudarte.
Código Delphi
[-]
Tabla:= Nombre de tu tabla;
Edit:= Nombre del edit donde escribes lo que quieres filtrar;
Campo:= El campo de la tabla el cual quieres filtrar;
Código:
procedure TForm1.Edit1Change(Sender: TObject);
begin
datamodule1.Tabla.Filtered:= True; end;
Código:
procedure TDataModule1.TablaFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
if datamodule1.Tabla.Locate ('Campo',unit1.Form1.Edit.text,[Lopartialkey,LocaseInsensitive]) then
accept:=true
else
accept:= false;
end;
Código:
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
if key in ['0'..'9'] then key:=#0;
end;