Como limitar ingreso de l 1 al 10 en un edit

[chino150]

hola a todos
mi problema es el siguiente teng varios edit donde el usuario sol debe insertar los valores del 1 al 10 si insertar valores mas alto debe salir un mensaje informandole al usario.

como logro esto

gracias de antemano

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

[bulc]

Empezado por chino150

hola a todos
mi problema es el siguiente teng varios edit donde el usuario sol debe insertar los valores del 1 al 10 si insertar valores mas alto debe salir un mensaje informandole al usario.

como logro esto.

gracias de antemano

Pues lo puedes conectar a un contador de flecha arriba-flecha abajo. O recoger la pulsación con el evento OnEditChange. Vas comparando los valores que tendrás que cambiar de String a Integer.... ¿Se entiende?
Saludos.

[roman]

Vaya, no había visto este hilo. Debo decir que estoy de acuerdo cien por ciento con Delphius y oscarac, y, sinceramente creo, ContraVeneno, que deberías repensar un poco el asunto. Seguir la filosofía de para qué pienso si ya hay componentes hechos es lo que lleva (o trae) a algunas personas a venir con preguntas del estilo de ¿dónde encuentro un componente que dibuje figuras en tres dimensiones? Es que quiero hacer una aplicación tipo AutoCad.

Claro que uno debe aprender a no reinventar la rueda, pero en un curso básico de programación de lo que se trata es de aprender ciclos, condicionales, funciones, etc. y no simplemente a incrustar componentes.

// Saludos