rango de numeros

[Casimiro Noteví]

Empezado por rogercito

ya realize la validacion para permitir que ingrese numeros , con el siguiente codigo :
procedure TForm1.edit2keypress(Sender: TObject; var Key: Char);

begin
if (key <#48) or (key >#57) then
if key<>#8 then

begin
beep;
showmessage('Solo Puede Ingresar Números');
key:=#0;
end;
end;

ahora me falta validar para que esos numeros que yo ingreso este correctois si estan en un rango entre 10 y 100 por Ej

Pues es lo mismo que cuando empezamos, ¿no has hecho nada nuevo desde entonces?
Por cierto, te recomiendo que leas nuestra guía de estilo.
Y vuelvo a recordarte que pongas etiquetas al código, ejemplo:




.

[*Caro*]

Hola rogercito, como te han indicado puedes utilizar el evento OnExit de tu Edit y hacer la verificación ahí:

Código Delphi [-]
procedure .......Edit1Exit(Sender: TObject);
var
 valor: Real;
begin
 valor := StrToCurr(Edit1.Text);
 if Not ((valor>=5000000) and (valor<= 500000000)) then
  begin
   //Si no esta en el rango, no dejamos que salga del Edit
   Edit1.SetFocus;
   Edit1.SelStart := Length(Edit1.Text);
   Edit1.SelLength := 0;
  end;
end;

Ahora si tu rango es de 10-100 como lo ultimo que has dicho, lo manejas como Integer.

Saluditos