Создать тип даных: TYPE MyType = от 1 до 150

[ArtGrek]

подскажите пожалуйста, как это правельно записать, ато я не соображу

[ArtGrek]

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

подскажите пожалуйста, как это правельно записать, ато я не соображу

что б потом можно было делать
inc(перменая нового типа)
и когда она доходит до 150, возвращалась к 1, и так по кругу

[Serge_Bliznykov]

и когда она доходит до 150, возвращалась к 1, и так по кругу

а никак.
Можно, конечно, замутить с классами. Тогда у вашего объекта написать методы inc() и dec() (при необходимости, конечно).
в начале программы будет:
MyCount := MyCountType.Create(0);
..
потом
MyCount.Inc(1);

потом, в конце работы с данным счётчиком
MyCount.Free;

но, имхо, овчинка выделки не стоит.
проще завести константу Const MaxCountValue = 150;
можо тип описать type MyCountType = 1..MaxCountValue;
и потом наращивать счётчик через процедуру. например, IncCycle( MyCount );

procedure IncCycle( var C : MyCountType );
begin
   if C = MaxCountValue then C := 1
   else Inc(C);
end.

[ArtGrek]

проверка на равество с макс значением уже есть,
я просто надеялся от нее избавиться с помошью нового типа
но раз нельзя, значит нельзя
спасибо

[ArtGrek]

Вот, случайно наткнулся в инете

function TForm1.GetNextNumber: Integer;
type
  TNumbers = 0..149;
Const
  {$WriteableConst On}
  nextNumber : TNumbers = 0;
begin
  result := nextNumber;
  nextNumber := (nextNumber + 1) MOD 150;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  for i := 1 to 500 do
    Label1.Caption := Label1.Caption + ' ' + IntToStr(GetNextNumber + 1);
end;

[Serge_Bliznykov]

угу. забавная реализация.
но не понял, что Вас так удивило?
я не вижу никаких принципиальных отличий от того подхода, о котором я говорил выше

но, имхо, овчинка выделки не стоит.
проще завести константу Const MaxCountValue = 150;
можо тип описать type MyCountType = 1..MaxCountValue;
и потом наращивать счётчик через процедуру. например, IncCycle( MyCount );

ну, разве что процедура заменена IncCycle на функцию GetNextNumber
и вместо проверки на переполнение - взятие остатка от деления.
а остальное - то же самое.


p.s. впрочем, раз Вам нравится - пользуйтесь!

[ArtGrek]

реализация и в правду забавная
весь код можно заменить этим

MyCount: integer;
...
inc(MyCount)
MyCount:= MyCount mod 150;

а что это за процедура IncCycle? в Google ничего не показало

извиняюсь за глупый вопрос, увидел
спасибо, тема закрыта

[Аватар]

150 mod 150=0 - все равно if нужен

[chertovich]

TMyType = 1..150;

[ArtGrek]

Сообщение от Аватар

150 mod 150=0 - все равно if нужен

MyCount: integer;
...
inc(MyCount)
MyCount:= MyCount mod 150 + 1; (от 1 до 150)