filtrar campos enteros

[gonza_619]

hoal a todos bueno miren estoy intentando filtrar un campo tipo entero, pero solo se aherlo con campos string:

Código Delphi [-]
Table4.Filter:='nombre= '+QuotedStr(Edit5.text+'*');
Table4.Filtered:= True;

ahora con entero seria

Código Delphi [-]
Table4.Filter:='codigo_cleinte= '+QuotedStr(Edit6.text+'*');
Table4.Filtered:= True;

bien creo q habria q pasarlo a entero pero nose como qedaria , espero puedan ayudarme gracias

[marcoszorrilla]

Código Delphi [-]
Table4.Filter:='codigo_cliente= '+StrToInt(Edit6.text);
 Table4.Filtered:= True;

Un Saludo.

[gonza_619]

bien me dice error incompatible ,str and int, pero lo estoy pasando a entero, no entiendo porq, y el campo es entero y coloco un valor enteor en el edit, tendria q poder ejecutarse

[*Caro*]

Hola gonza_619, solo debes quitar QuotedStr y seguir manejandolo como String ya que a Filter debes pasarle un String.

Código Delphi [-]
 Table4.Filter:='codigo_cleinte= '+Edit6.text;
 Table4.Filtered:= True;

Saluditos

[cloayza]

Empezado por marcoszorrilla

Código Delphi [-]
Table4.Filter:='codigo_cliente= '+StrToInt(Edit6.text);

Exijo una explicación!!!

[gonza_619]

bien pero cuando quieri
o borrar el edit ara colocar un numero , me dice edit not found!, es como que hago click en el edit y ya me lo filtra, no me deja poner nada

[[Caral]]

Hola

Código Delphi [-]
Table4.Filtered:= False;
Table4.Filter:='codigo_cleinte Like '+Edit6.text;
Table4.Filtered:= True;

Saludos

[gonza_619]

bien gracias de nuevo, esta vez funciono es decir lo filtro pero cuando lo quise borrar, me dio que expression expected but nothing found, yo en el evento on key press tengo

If Edit5.Text = '' Then
Table4.Filtered:= False;

, bueno gracias por la ayuda anterior

[[Caral]]

Hola

Código Delphi [-]
If Edit5.Text <> ' ' Then
begin
Table4.Filtered:= False;
Table4.Filter:='codigo_cleinte Like '+Edit6.text;
Table4.Filtered:= True;
end;

Saludos
Quita el evento onkeypress