Hola
Código Delphi
[-]
procedure TFormBusPresupuesto.EditBusPresupuestoChange(Sender: TObject);
begin
if length(EditBusPresupuesto.text) <= 10
then
QueryBuscaPresupuesto.SQL.Text := 'Select Idpres From TUTabla Where Idpres = :ID';
QueryBuscaPresupuesto.Parameters[0].Value:= EditBusPresupuesto.Text;
QueryBuscaPresupuesto.Open;
end;
Los Filtros se vuelven muy lentos con el tiempo, es preferible usar sql.
Saludos