Cita:
Empezado por drykea
¿Alguien sabe por qué sale ese error?
|
Simplemente porque alguna de las herramientas que estas utilizando esta violando el rango de un valor ordinal.
Código Delphi
[-]
program Project1;
{$APPTYPE CONSOLE}
{$R-}
uses
SysUtils;
var
w: Word;
begin
WriteLn('Ingrese valores menores a ', High(w)+1, ' o "0" para salir');
repeat
ReadLn(w);
WriteLn('Valor: ', w);
until w = 0;
end.
Es riesgoso, no lo recomiendo, pero puedes desactivar el RangeChecking desde el menú: Project\Options\Compiler\Range Checking.
Saludos!