Работа с ограниченным типом

[Alexan-Dwer]

Здравствуйте, уважаемые профессионалы.
Раньше всегда использовал стандартные типы: Byte, Real, Integer. Однако недавно прочел статью об эффективном программировании. Автор советовал ограничивать диапазон переменной для уменьшения объема памяти программы и повышения быстродействия – так ли это?
В итоге решил перейти на ограниченный тип. Однако есть одна трудность: я присваиваю значения переменной, и порой это значение выходит за рамки диапазона типа переменной. В этом случае мне необходимо получить новое значение по формуле:

type
  Month = 1..12;
var
  New: Month;
begin
// Январь.
New:=13; // New:=1;
// Декабрь.
New:=0;  // New:=12;
end;

Написал функцию:

type
  Month = 1..12;
var
  New: Month;

function GetValidValue(M: Integer): Month;
begin
//
if M>High(Month) then M:=M-High(Month);
//
if M<Low(Month)  then M:=ABS(ABS(M)-High(Month));
//
Result:=M;
end;

Вопрос №2: есть ли возможность автоматически перегрузить значение, подобно Byte(-4) = 252 ?

P.S. Программирую в Delphi, возможно на Pascal немного иначе

[Poma][a]

Знаю только что можно сэкономить на типе string , он = 256 байтов 1 - длина строки остальные хранят что-то НО если ты ввел 'asd' то будет 256 байт можно выйграть за сщет "мусора" (байты которые хранят что-то не нужное, например 'asd' -> 1 байт = 3, 2 = 'a' , 3 = 's', 4 = 'd', а остальное "мусор"). Нужно просто ограничить размер строчки s : string[5], то есть займет 6 байт, строка хранит 5 символов.


А вот еще что-то нашел http://borlpasc.narod.ru/docym/prac/ograni.htm

[ViktorR]

Так понимаю, что не так понят автор ...
Интересно, а вот этот код:

type
  Month = 1..12;
var
  New: Month;
begin
// Январь.
New:=13; // New:=1;
// Декабрь.
New:=0;  // New:=12;
end;

компилируется нормально? У меня не стоят Delphi.
Month - это интервальная переменная и компилятор должен ругнуться на несоответствие типа. А может отключен контроль?

И как понимать ускорение, когда вставляется дополнительная п/п для контроля значений переменной?

[Alexan-Dwer]

Poma][a, ViktorR спасибо за сообщение

Poma][a:

Знаю только что можно сэкономить на типе string...

String я не использую, предпочитаю PChar.

А вот еще что-то нашел...

Я читал такие статьи, но там лишь основные данные. Мне нужна более углубленная информация

ViktorR:

Так понимаю, что не так понят автор ...
...И как понимать ускорение, когда вставляется дополнительная п/п для контроля значений переменной?

Возможно. Вопрос о скорости и быстродействии не основной в данной теме.

Больше интересует вторая часть: как можно перегрузить интервальную переменную – пример я уже приводил [Byte(-4) = 252].

...компилятор должен ругнуться на несоответствие типа.

Да, напрямую присвоить нельзя. Но если написать Byte(13), то значение переменной станет равно 13, хотя оно не входит в диапазон 1..12.

[Alexan-Dwer]

После дискуссии с более опытными программистами получил следующие ответы:

...с Byte похоже происходит сдвиг на аппаратном уровне
...со своим типом такой возможности нет, кроме как пользоваться дополнительной функцией

Соответственно, вопрос решен!

P.S. Извините за повторное сообщение в теме, я не могу редактировать свой предыдущий пост.
Прошу модераторов объединить ответы в одно сообщение.