rango de numeros

[rogercito]

gracias por responder ... yo tengo este codigo :

procedure TForm1.edit10keypress(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 necesito establecer un rango de numeros , cmo lo hago no entiendo gracias

[Casimiro Noteví]

Por favor, recordad usar las etiquetas para el código:





.

[rogercito]

no puedo encontra la solucion , agradesco toda respuesta

[rogercito]

para ser mas especifico mi rango de nuemros que incerto tiene que estar entre 5000000 millones y 50millones porque es para el documento gracias

[[oscarac]]

quieres ingresar un numero...
ese numero es para multilpicar? o es nu Numero de documento ?

[rogercito]

yo ingreso los numeros en el edit , una vez validados que sean numeros ( eso ya lo consegui ) , necesito que tambien esos numeros que yo ingreso esten en un rango de 5000000 millones y 500000000 millones...si estan en ese rango que los tome y si no que slte un eerror para que vuelva a ingresar los datos
gracias

[Casimiro Noteví]

Como son números muy grandes, quizás sea más cómodo comprobar que el primer dígito es un 5 o menos de 5 y que la longitud del texto introducido corresponde con la longitud del número que hay que introducir.