Filtrar query con edit
 

Hola,
estoy realizando una aplicacion en delphi 5 para generar presuspuesto con base de datos en paradox, tengo el formulario presupuestos, en el cual se pueden dar de alta, modificar, eliminar y buscar, mi problema es a la hora de buscar un presupuesto ya que realizo lo siguiente:

procedure TFormBusPresupuesto.EditBusPresupuestoChange(Sender: TObject);
begin
if EditBusPresupuesto.Text = '' then QueryBuscaPresupuesto.Filtered:=false
else
begin
if length(EditBusPresupuesto.text) <= 10
then QueryBuscaPresupuesto.Filter:='Idpres='''+EditBusPresupuesto.Text+'*''';
QueryBuscaPresupuesto.Filtered:=true;
end;
end;

El campo (clave) Idpress es de tipo longInt y recoge el numero de presupuesto, pues al realizar el filtro creo que no concuerdan los tipos, ya que EditBusPresupuesto.Text es string,
Gracias de antemano.:)

Hola teclilla, encierra el codigo entre las etiquetas delphi para una mayor legibilidad

prueba con esto a ver si funciona:

Código Delphi [-]
procedure TFormBusPresupuesto.EditBusPresupuestoChange(Sender: TObject);
begin
if EditBusPresupuesto.Text = '' then QueryBuscaPresupuesto.Filtered:=false
else
begin
if length(EditBusPresupuesto.text) <= 10
then QueryBuscaPresupuesto.Filter:='Idpres='+EditBusPresupuesto.Text;
QueryBuscaPresupuesto.Filtered:=true;
end;
end;

Fijate que le quito el * y las comillas entre la que los encierras ya que esos son comodines para texto, prueba y avisas que tal

Si el campo clave es Integer solo debes quitar el comodín (*), pues solo se usa para campos strings.

Saludos.

EDITO: Eduarcol me ganaste por unos segundos.

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

Hola
Que estamos en competencia????:D:D:D:D
Me ganasteis por segundos.:D:D
Saludos

o Dios Caralus, es que aqui en el olimpo estamos muy desocupados ultimamente, :D:D

Muchas gracias, ya llevaba varios dias atascada (y todo por un *), me habeis alumbrado :) . Caral tambien me quedo con tu manera de resolverlo, es muy interesante y no se me habia ocurrido.
GRACIAS A TODOS.