模糊查询(能过滤掉不符合条件的数据)

在输入框Edit输入数据时,能实时过滤掉不符合条件的数据
procedure TMainForm.Edit1Change(Sender: TObject);
begin
  ADOQuery1.Active :=false;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from XX表 where 某字段名 like '''+trim(edit1.Text)+'%''');
  ADOQuery1.Active :=true;
end;
虽然可以用ADOQuery1.locate来实现模糊查询,但不同之处在于上面的代码能马上把不符合条件的数据过滤掉
而ADOQuery1.locate却只能把数据记录跳到当前符合条件的数据前面,其它数据没有过滤掉