Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Тип set, перечисление с константами

Автор: Mailman 6.6.2006, 20:41

Имеем:

type TMsgType =  (msCritical = 1,
                             msError     = 2,
                             msDebug   = 3,
                             msNote      = 4,
                             msStatus   = 5);

type TTypeFilter = set of TMsgType;

Работает:
  TypeFilter:= [msCritical..msStatus] - ОК
  TypeFilter:= [1..5] - Incompatibility types

Как это мона сделать?
К примеру, как заставить работать:
TypeFilter:= TypeFilter + [1];

Автор: volvo877 6.6.2006, 21:09

Mailman, компилятор какой? То, что не Турбо Паскаль, ясно... FPC? Дельфи?

Переезжаем...

Автор: Mailman 6.6.2006, 21:12

Делфи.

Автор: Yanis 7.6.2006, 08:56

Цитата(Mailman @ 6.6.2006, 21:41

)

Как это мона сделать?

Воспользоваться приведением типов.

Код

TypeFilter := [TMsgType(2)]; // equivalent to TypeFilter := [TMsgtype(msError)];
TypeFilter := [TMsgType(1)]; // equivalent to TypeFilter := [TMsgtype(msCritical)];

Автор: Mailman 7.6.2006, 22:01

Спасибо!