Buenas
Tengo estos 3 codigos:
Código Delphi
[-]IF (NOT(Upcase(Key) In[#8,#32,'A'..'Z','a'..'z','Ñ','ñ'])) then
begin
Key:= #0;
Application.MessageBox('El Valor a Ingresar Debe Ser Numerico','',mb_ok + mb_iconwarning);
EditCode.Text := '';
EditCode.SetFocus;
Exit;
end;
-----------------------------------------------------------------------------------------
Código Delphi
[-]IF NOT (Key in [#8, ',' ,'0'..'9']) then
begin
Key:= #0;
Application.MessageBox('El Valor a Ingresar Debe Ser Numerico','',mb_ok + mb_iconwarning);
EditCode.Text := '';
EditCode.SetFocus;
Exit;
--------------------------------------------------------------------------------------------
Código Delphi
[-]IF (key <#48) or (key >#57) then
begin
IF key<>#8 then
begin
Key:= #0;
Application.MessageBox('El Valor a Ingresar Debe Ser Numerico','',mb_ok + mb_iconwarning); Edit1.Text := '';
Edit1.SetFocus;
end;
Exit;
end;
end;
Estos códigos los copie del foro justamente como se interpreta en los mismo para validar un Edit, el detalle esta que no importa si ingreso un numero o una letra siempre me arroja el mismo
mensaje por lo tanto la condición no se esta cumpliendo correctamente.
Si ingreso aaa me arroja el mensaje ( Y esta bien así debe ser), pero si ingreso 123, También me arroja el mensaje y no debería ser.
Me gustaría poder conseguir una respuesta concreta ya que he buscado en el foro este tema y es algo complejo en realidad.
También me gustaría que corrigieran los códigos que expuse, he leído post son el MaskEdit, (pero no se como se utiliza) si hay un método mejor al que estoy haciendo seria bueno saberlo.
Gracias por la ayuda que me puedan aportar. Saludos....
Una vez resuelto este hilo me gustaría que tuviera la coletilla de [SOLUCIONADO] porque la verdad que tengo horas buscando y normalmente son los mismos post