validar el ingreso a un Edit solo numeros

[ContraVeneno]

Prueba a agregar la función Trim, puede que el usuario esté escribiendo solo espacios, es decir:

 '     '

, con lo que tu validación fallaría.

Lo mejor sería utilizar un control que este diseñado específicamente para manejar números, con el TjvValidateEdit solo cambias dos propiedades y listo, no tendrías que hacer ninguna validación, ni hacer conversiones, ni programar nada.

[Loreiev]

Empezado por ContraVeneno

Prueba a agregar la función Trim, puede que el usuario esté escribiendo solo espacios, es decir:

 '     '

, con lo que tu validación fallaría.

Lo mejor sería utilizar un control que este diseñado específicamente para manejar números, con el TjvValidateEdit solo cambias dos propiedades y listo, no tendrías que hacer ninguna validación, ni hacer conversiones, ni programar nada.

Hola, gracias por contestar a mi duda. Probé agregar la función Trim pero no cambió nada. Agregué la instrucción:

Código Delphi [-]
if not((Frmcartones.LbSelectorCarton.Text <> '')and(Frmcartones.LbSelectorCarton.Text>=#49)and(Frmcartones.LbSelectorCarton.Text<=#57)) then Frmcartones.LbSelectorCarton.Text:=#49;
editformato;
auxiliar:= strtoint(Trim(LbSelectorCarton.Text));
EditarCarton(auxiliar);

y tampoco dió resultado. La verdad que estoy totalmente perdida, nose más que probar.
La opción de usar el componente TjvValidateEdit estaría muy buena, pero, aunque estube buscando por todos lados, dentro y fuera del foro. No logro instalarlo del paquete de jvcl -jedi. Si alguien me podría explicar de manera clara (estoy recién empezando en esto de programar con Delphi) le estaría muy agradecida. Y si no si se les ocurre que puedo probar, porque me quedé estancada en este punto y no puedo avanzar y calculo que es una pavada .

Desde ya muchas gracias

[[Fenareth]]

Porqué no haces la validación después de comprobar que el Edit no contiene un espacio vacío ???

Código Delphi [-]
if Edit.Text <> '' then
begin
   // Hace comprobación de que sean números
end;

Es una idea que podría ayudarte...

Saludos

[[Caral]]

Hola
Yo uso el componente NumEdit.
Este componente contiene dos edit uno para int y otro para float.
La verdad es que son muy practicos.
Por si lo quieres aqui esta.
Saludos
Pd: se instala como cualquier componente, no es un paquete.

[ContraVeneno]

las JVCL la puedes encontrar aquí: http://sourceforge.net/project/showf...ckage_id=42327

La versión 3.35 es solo para delphi 2009, para las demás versiones debes de bajar la versión 3.34

El archivo que bajas tiene dos carpetas, JCL y JVCL, dentro de cada una de ellas, tienes un archivo que se llama "Install.bat". Primero ejecutas el Install.bat de la carpeta jcl (JCL\JCL\Install.Bat)y después ejecutas el install.bat de la JVCL (JVCL\Install.Bat) y en teoría eso sería todo.

[Loreiev]

Muchas gracias a todos por sus respuestas. Finalmente puede instalar los componentes jedi!!! No sabía que la última versión era solo para delphi 2009, ese era el problema.
Ahora estoy utilizando el componente TJvValidateEdit pero aún sigue dando el mismo error. Debe haber algo mal en el código, porque la validación tiene que estar bien, no?
Ya probé verificar que el edit no tiene valor nulo cuando cambia su valor.
Bueno, voy a seguir probando, si alguien tiene alguna idea para darme será bien recibida.

Saludos

[ContraVeneno]

si ya estas utilizando un TjvValidateEdit, ya no es necesario ni validar nada, ni hacer conversiones, ni programar nada...

ahora, ¿en que parte del código te marca que error?

[fidel]

Para validar edits vacíos y que no te de error al convertirlos en entero basta con poner un 0 (cero) delante del texto a convertir:

.... auxiliar:= strtoint(Trim( '0' + LbSelectorCarton.Text))