Como limitar ingreso de l 1 al 10 en un edit

[ContraVeneno]

Empezado por chino150

El ejecicio dise que debe ser edits normales

a caray... no todo lo que te enseñen en la escuela va a ser verdad...

no puedes construir puentes resistentes con palillos de dientes... aunque el ejercicio diga que sí...

utiliza el código de mi amigo Caral, si así es tu ejercicio, pero definitivamente debes de mostrarles que utilizando SpinEdits no tendrían que romperse la cabeza.

P.D. No se porque me dieron ganas de darle un zape a tu maestro, por cerrar puertas en lugar de fomentar la creatividad... shale...

[pnsd_89]

y si coloca el maxleng en 2 y en el Onkey hace que las teclas permitidas solo sean las numericas? seria lo mas rapido creo yo

[ContraVeneno]

Empezado por pnsd_89

y si coloca el maxleng en 2 y en el Onkey hace que las teclas permitidas solo sean las numericas? seria lo mas rapido creo yo

¿probaste el spinedit?
yo no veo otra cosa más rápida que utilizar el spinedit, establecer dos o tres propiedades y listo. Sin código, sin conversiones, sin validaciones....

[[oscarac]]

el uso del SpinEdit seria una buena solucion, pero.. creo yo... que el inefable profesor de la Republica Dominicana pretende enseñar a los alumnos a tener algo de creatividad y a usar la materia gris para solucionar problemas que aparentemente son faciles, pero como veran... dependen de ciertas variables y que al mismo tiempo todos tenemos una solucion diferente y similar sobre un mismo problema

[ecfisa]

Hola Chino150.

Sumo otra alternativa a las que ya te han sugerido los compañeros:

Código Delphi [-]
...
interface

(* Inicializar TEdit's, asignar eventos *)
procedure TForm1.FormShow(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to ComponentCount -1 do
    if Components[i] is TEdit then
    begin
      TEdit(Components[i]).Text:= ''; // aca poné lo que el profesor quiera que se visualice
      TEdit(Components[i]).OnKeyPress:= EditKeyPress;
      TEdit(Components[i]).OnChange:= EditChange;
    end;
end;

(* Verificar sólo números *)
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8,'0'..'9']) then
  begin
    MessageBeep(MB_ICONERROR);
    Key:= #0;
  end;
end;

(* Verificar rango 1-10 *)
procedure TForm1.EditChange(Sender: TObject);
var
  v: Integer;
  s: string;
begin
  s:= TEdit(Sender).Text;
  if TryStrToInt(TEdit(Sender).Text, v)and(v < 1) or (v > 10)  then
  begin
    ShowMessage('Valor máximo/minimo permitidos: 1-10');
    TEdit(Sender).OnChange:= nil;
    Delete(s,Length(s),1);
    TEdit(Sender).Text:= s;
    TEdit(Sender).SelStart:= Length(s);
    TEdit(Sender).OnChange:= EditChange;
  end;
end;

Y coincido también que la petición es un poquito rebuscada...

Un saludo.

[[Caral]]

Hola
Me gusta mucho.
Muy legible, facil, hecho especialmente para el profe de Chino150 que le gusta el codigo.
Saludos

[ecfisa]

Empezado por Caral

Hola
Me gusta mucho.
Muy legible, facil, hecho especialmente para el profe de Chino150 que le gusta el codigo.
Saludos

Yo también experimento ese sentimiento de ContraVeneno...

No se porque me dieron ganas de darle un zape a tu maestro

(Aunque no se lo que es un 'zape' creo que pensamos en lo mismo)

Un saludo.

[pnsd_89]

aaa si el valor es mayor que 10 sacas el mensaje en el OnExit del edit