Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   filtrar campos enteros (https://www.clubdelphi.com/foros/showthread.php?t=70003)

gonza_619 24-09-2010 05:35:07

filtrar campos enteros
 
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 24-09-2010 07:06:43

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

Un Saludo.

gonza_619 24-09-2010 14:05:57

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 24-09-2010 15:20:00

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 24-09-2010 15:28:59

Cita:

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

Exijo una explicación!!! :D:D:D

gonza_619 25-09-2010 10:07:23

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 25-09-2010 15:31:25

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

gonza_619 25-09-2010 15:47:26

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 25-09-2010 15:52:04

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


La franja horaria es GMT +2. Ahora son las 06:56:48.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi