Bueno amigo,
Pero que esperas que pase si el numero no esta en el rango?, que lo omita?, que muestre un mensaje de error?
En tu caso veo que tienes un archivo con un solo dato... si el dato no es correcto... explotaría el programa? no controlas el error de lectura...
Por que no haces la facil?
Código Delphi
[-]Function LeerNumero: Integer;
var
Variable: Integer;
Archivo: File of Integer;
begin
AssignFile(Archivo, "C:\Ejemplo.algo");
Reset(Archivo);
Read(Archivo, Variable);
CloseFile(Archivo);
if (variable < CotaInferior) or (Variable > Cotasuperior) then
Result:= ValorDefault;
else
result.=Variable;
end;
Bueno, la verdad no se como te este funcionando la aplicacion, pero al hacer esta prueba:
Código Delphi
[-]type
SubRango = -100..99;
procedure Ejemplo;
var
Variable: SubRango;
begin
Variable:= 1000;
end;
sale un error de compilacion que dice que el numero esta fuera de rango...
Un salduo,