Como limitar ingreso de l 1 al 10 en un edit

[[Caral]]

Hola

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
var valor: integer;
begin
   Valor:= 10;
   If Valor < StrToInt(Edit1.Text) then
   Showmessage('es mayor de 10');
end;

Saludos

[[Caral]]

Hola
Todos los edit apuntando al evento del edit1.
El bucle esta definido para tres edit, se tendra que colocar la cantidad que se necesite.

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
var valor, i: integer;
        comp: TComponent;
begin
   for i := 1 to 3 do begin // la cantidad de edits que se tenga
   Valor:= 10;
   comp := FindComponent('Edit' + IntToStr(i));
   If Valor < StrToInt(TEdit(comp).Text) then
   Showmessage('es mayor de 10');
end;
end;

Saludos

[chino150]

Empezado por Caral

Hola

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
var valor: integer;
begin
Valor:= 10;
If Valor < StrToInt(Edit1.Text) then
Showmessage('es mayor de 10');
end;



Saludos

Ok gracias como lo logro para 15 edit con la misma condicion

[[Caral]]

Hola
El evento ONChange de cada edit que apunte al evento onchage del edit1.
Tambien puedes hacer un procedure que todos apunten a este.
Saludos

[[Caral]]

Hola
Te va a dar un error (NO ES UN VALOR INTEGER), esto si los edits estan en blanco y apuntan al mismo evento.
Solucion: Colocar en el text de cada edit un 0.
Saludos

[ContraVeneno]

¿no sería más sencillo utilizar un SpinEdit?

al menos no tendrías que escribir nada de código.

[chino150]

Empezado por ContraVeneno

¿no sería más sencillo utilizar un SpinEdit?

al menos no tendrías que escribir nada de código.

El ejecicio dise que debe ser edits normales

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

[[oscarac]]

Empezado por chino150

El ejecicio dise que debe ser edits normales

no quiero iniciar un debate ni nada parecido...

pero hay veces en que debemos usar solo lo que tenemos para luego entender su uso y ver que otras potencialidades podemos utilizar de los recursos que poseemos

y si dice que deben ser edits normales... pues ni modo... que sean normales...

[chino150]

Empezado por Caral

Hola
Te va a dar un error (NO ES UN VALOR INTEGER), esto si los edits estan en blanco y apuntan al mismo evento.
Solucion: Colocar en el text de cada edit un 0.
Saludos

Esto es un problema para mi porque cuando arranca el programa los edits debe estar vacios

[[Caral]]

Hola
Y por que es un problema si todo tiene solucion?.
Saludos

[chino150]

Empezado por Caral

Hola
Y por que es un problema si todo tiene solucion?.
Saludos

El profesor no quiere que los edits esten en blanco cuando inicie el programa