собственный числовой тип

[maloun]

Где-то видел пару недель назад строку примерно такого вида f=byte[1..4]; или f=[1..4]of byte;
точно немогу вспомнить, но смысл был в том, что я создавал собственный числовой тип. Кто нормально знает что это было - исправьте пожалуйста.

[Arigato]

Информация: http://it-starter.ru/content/tseloch...-yazyke-pascal

[maloun]

f = 1..4;
вспомнил - тема закрыта

Сообщение от Arigato

Информация: http://it-starter.ru/content/tseloch...-yazyke-pascal

спасибо за полезную информацию var a: 1..3; ещё лучше

[Utkin]

В результате f будет иметь тип Byte, а не Ваш собственный.

[Somebody]

Сообщение от Utkin

В результате f будет иметь тип Byte, а не Ваш собственный.

Не совсем Byte как-то...

{$APPTYPE CONSOLE}

type f = 1..4;

procedure p(x: Byte); overload;
begin
  WriteLn('Byte');
end;

procedure p(x: f); overload;
begin
  WriteLn('f');
end;

var
  varByte: Byte = 1;
  varF: f = 1;
begin
  p(varByte);
  p(varF);
  ReadLn;
end.

[Пепел Феникса]

Уткин, не придирайтесь, там всетаки есть разница, а меньше байта мы не адресуем.

[Arigato]

Интервальные типы имеют значение только на этапе компиляции. Во время выполнения можно спокойно выйти за пределы интервала.

type f = 1..4;
var varF: f = 4;
begin
  varF := varF + 1;
  WriteLn ('varF = ', varF);
  ReadLn;
end.

[s-andriano]

Сообщение от Arigato

Интервальные типы имеют значение только на этапе компиляции. Во время выполнения можно спокойно выйти за пределы интервала.

А если так:

{$R+}
type f = 1..4;
var varF: f = 4;
begin
  varF := varF + 1;
  WriteLn ('varF = ', varF);
  ReadLn;
end.

[Arigato]

В первом случае:



Во втором:

[Пепел Феникса]

Arigato, помоему итак понятно что проверка границ требует дополнительного кода.
правда это дело как то криво идет, не понимаю зачем inc,dec последовательно.