Ver Mensaje Individual
  #1  
Antiguo 08-04-2011
kdemia kdemia is offline
Miembro
 
Registrado: may 2010
Posts: 109
Reputación: 14
kdemia Va por buen camino
Exclamation Que hago mal? Por favor

que tal gente, tengo una duda y voy a intentar hacerla lo mas entendible y corta posible:
Si tengo el siguiente codigo
Código Delphi [-]
{Instrucciones}
procedure Ejemplo;
var
  Variable: Integer;
  Archivo: File of Integer;
begin
  AssignFile(Archivo, "C:\Ejemplo.algo");
  Reset(Archivo);
  Read(Archivo, Variable);
  CloseFile(Archivo);
end;
{Instrucciones}
Delphi se va a encargar que el numero "Variable" que se va a leer va a estar entre -2147483648 y 2147483647 (que es el rango del integer), yo lo que necesito es acotar esos valores y hacer que el numero que se lea sea este entre -x y x, yo lo que pense es un subrango como por ejemplo:
Código Delphi [-]
{Intrucciones}
Type
  SubRango = -100..99;
{Instrucciones}
procedure Ejemplo;
var
  Variable: SubRango;
  Archivo: SubRango;
begin
  AssignFile(Archivo, "C:\Ejemplo.algo");
  Reset(Archivo);
  Read(Archivo, Variable);
  CloseFile(Archivo);
end;
{Instrucciones}
Pero no funciona, lee un numero cualquiera como si estuviera leyendo un integer.. que de hecho es un integer pero acotado... si alguien me ayuda le debo 1000.. un abrazo a todos
Responder Con Cita