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