validar el ingreso a un Edit solo numeros

[[brakaman]]

Empezado por jedinds

hola

Edit, solo ingreso de numeros
y si no se ingresa nada que salga un mesaje que no a ingresado numeros

saludos

Algo como esto.

Código Delphi [-]
procedure TForm1.EDit1KeyPress(Sender: TObject; var Key: Char);
begin
    if not (key in ['0'..'9','.',#8]) then
    begin
      key:=#0;
      showmessage('Por favor introduzca numeros')
    end
end;

Saludos

[[BlueSteel]]

Hola,

Tambien puedes utilizar el componente de la JVC (Jedi).. el JvValidateEdit.. es muy bueno

y con respecto a esto

Empezado por brakaman

Algo como esto.

Código Delphi [-]
procedure TForm1.EDit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','.',#8]) then
begin
key:=#0;
showmessage('Por favor introduzca numeros')
end
end;
Saludos

creo que falta intervenir en el evento onExit del Edit1... para dar solución a esto

y si no se ingresa nada que salga un mesaje que no a ingresado numeros

ya que si no presiona ninguna tecla, el mensaje anterior no aparecerá...

Código Delphi [-]
If Edit1.Text = '' Then
   ShowMessage('Debe ingresar un dato');

Salu2

[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.