Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   un tEdit que sólo tome datos de tipo integer? (https://www.clubdelphi.com/foros/showthread.php?t=3902)

Giniromero 24-09-2003 10:06:50

un tEdit que sólo tome datos de tipo integer?
 
Hola,

Necesito saber si hay alguna propiedad del Tedit, que me permita obligarle a que sólo tome datos integer, o numéricos.

O si hay alguna manera que, mediante código, pueda filtrar, para que, sólo si son numéricos los datos que tiene ese objeto, tome el valor que en él se encuentra para manipularlo, y sinó, muestre un mensaje de error.

Algo así como:

If (valor del TEdit es integer) then begin
accion1
end
else begin
showmessage ('Tienes que introducir valores numéricos');
end;

Lo que necesitaría es la expresión (valor del TEdit es integer).

Muchas gracias

Virginia

__cadetill 24-09-2003 10:12:14

Puedes utilizar el TCurrencyEdit de las RX. A parte de no permitir la entrada de letras y poder dar formato a los números, tienes la propiedad AsInteger

Giniromero 24-09-2003 12:14:08

Hola cadetill,

no he encontrado, entre mi lista de componentes, el que me aconsejas.
¿que tipo de componentes son los RX?

De todos modos se me ha ocurrido otra forma de solucionar mi problema, sin tener que mirar el tipo de datos del TEdit.

La soluión no tiene nada que ver con lo planteado aquí, por lo que no os voy a aburrir con mi aplicación, pero en cualquier caso, muchas gracias por el interes, y como siempre, por la ayuda.

;) :) :D

Virginia

judoboy 24-09-2003 12:44:04

Los RXLibs forman parte de un paquete de componentes que te recomiendo, y encima son gratuitos.
Desde la propia página de cadetill te los puedes descargar.

Giniromero 24-09-2003 13:28:04

Gracias,

les echaré un vistazo.

Virginia

Alfredo Soler 24-09-2003 17:29:31

En el Evento KeyPress pones un filtro para que solo se puedean digitar los valores deseados.

Aqui va un ejemplo

procedure Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then key:=#0;
end;

En el ejemplo solo te permite los caracteres del 0 al 9 el el #8 que es el retroceso.

delphi.com.ar 24-09-2003 17:38:55

El ejemplo de Alfredo fallará si al usuario se le ocurre pegar un string que tenga en el portapapeles. Si te interesa, te puedes dar una vuelta por mi página, donde hay un paquete de componentes que contiene un TIntEdit que es un editor de enteros y TCardinalEdit, que es un editor para cardinal.

Saludos!

Giniromero 24-09-2003 18:21:10

Hola,

¿Como hago para instalar estos nuevos componentes? por que no he tenido que hacerlo nunca, y estoy segura que me podrían ser muy utiles... si supiera como instalarlos:(


Muchas gracias, de antemano,

Virginia

__cadetill 24-09-2003 18:35:06

mirate este hilo a ver si te ayuda con la instalación de los componentes

http://www.clubdelphi.com/foros/show...light=instalar

Giniromero 25-09-2003 17:04:54

Gracias,

lo echaré un vistazo.

Saludos

Virginia


La franja horaria es GMT +2. Ahora son las 13:08:23.

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