rango de numeros

[rogercito]

hola , tengo que introducir numeros en un edit , una vez que sepa que son numeros , esos numeros tiene que estar en un rango de 5000000 y 50000000 millones , cmo lo debo hacer
gracias

[AndyLupa]

La funcion Val te permite ver si son numericos

Ej;

var
code,yy:integer;
begin

Val(Edit,code,yy);
if code=0 then
//Es numerico y validas el rango
else
//No es numerico

:-)

[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