Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   TEdit, que admita sólo números con 2 decimales (https://www.clubdelphi.com/foros/showthread.php?t=53034)

David 08-02-2008 10:27:37

TEdit, que admita sólo números con 2 decimales
 
Hola

quiero que un control TEdit, pueda insertar una cantidad con dos decimales, y no le deje escribir otra cosa, yo sé como hacer que sólo pueda insertar números, es muy fácil, pero que si escribe una coma, después tenga que haber 2 decimales, sino borre la coma, o que no pueda escribir más de dos comas,etc...

Resulta que si le permito números y comas hay muchas combinaciones donde podría no resultar un número que puede ser entero, decimal con un decimal, decimal con dos decimales.

No sé si hay algún código por ahí ya preparado, en caso de no haber, me podría conformar en última instancia con una función que compruebe si el número insertado en el edit es válido, pero esto ya sería como segundo recurso, sino se puede con el primero.


Un saludo

defcon1_es 08-02-2008 10:46:54

Buenos dias.

En vez de un TEdit, prueba con un TMaskEdit.

Le pones una máscara y el componente se encarga de validar lo que el usuario teclea en base a esa máscara.

fidel 08-02-2008 11:05:21

Busca en el foro "2 decimales"

Hace tan solo 4 días se hizo la misma pregunta

enecumene 08-02-2008 14:47:45

1 Archivos Adjunto(s)
Con dos Componentes lo puedes hacer, el NumEdit y el JvValidateEdit de la "biblioteca" de JVCL.

Archivo Adjunto 1149

Saludos.

Juandedian 09-02-2008 10:35:15

Tambien puedes utilizar las funciones Pos y Length para buscar la coma y contar los digitos q hay despues de la coma, en el evendo OnKeyPress

egostar 09-02-2008 17:09:58

Y si quieres usar algo hecho en casa :), ve este hilo donde nuestro amigo [cHackAll] a posteado un código muy interesante.

Salud OS


La franja horaria es GMT +2. Ahora son las 21:26:58.

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