validar el ingreso a un Edit solo numeros

[ContraVeneno]

EL TjvValidateEdit ya viene preparado para manejar solo números, es gratis y muy funcional.

[Loreiev]

Hola, yo tengo un problema parecido, necesito validar un edit que puede tener sólo valores naturales desde el 1 hasta el 250 y quiero que, de ingresar un valor incorrecto lo corrija por 1. Hice este código:

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

Pero me salta el error:

EConverterror with message "is not a valid integer value"

porqué sigue apareciendo? no me estoy asegurando de que el valor sea entero?

El código del procedimiento EditarCarton es:

Código Delphi [-]
Procedure EditarCarton (num:integer);
var
i,j,k,l:integer;
Begin
 k:=0;
 l:= num - 1;
 for i:=0 to 8 do
 begin
  for j:=0 to 2 do
  begin
   numerocarton[l,k]:= strtoint(frmCartones.GrillaCarton.Cells[i,j]) ;
   inc(k);
  end;
 end;
end;

[Loreiev]

Hola, nadie me ha contestado todabía, alguna sugerencia? No entiendo porque me sigue dando el mensaje de error después de haber validado los números.

Desde ya muchas gracias


Loreiev

[[Fenareth]]

Por el error que arroja me suena a que estás tratando de validar un Edit que está vacío...

Por lo tanto te dice que '' (espacio vacío) no es valor entero válido...

Saludos,

[Loreiev]

Empezado por Fenareth

Por el error que arroja me suena a que estás tratando de validar un Edit que está vacío...

Por lo tanto te dice que '' (espacio vacío) no es valor entero válido...

Saludos,

Hola, gracias por contestarme. Es probable que sea como vos decís, un error debído a que está ingresándose un número vacío. Pero, mi pregunta es, con la instrucción que yo coloqué no debería evitar ese error? debo agregar algo más o el problema tiene que estar en otra parte?

Muchas gracias

Saludos

[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