Ver Mensaje Individual
  #10  
Antiguo 11-12-2008
Loreiev Loreiev is offline
Miembro
 
Registrado: oct 2008
Posts: 14
Reputación: 0
Loreiev Va por buen camino
Cita:
Empezado por ContraVeneno Ver Mensaje
Prueba a agregar la función Trim, puede que el usuario esté escribiendo solo espacios, es decir:
Código:
 '     '
, 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
Responder Con Cita