Типы вида: type TOptions = (to1,to2,yo3);

[Человек_Борща]

Доброго времени суток!

как реализуется тип данных, которые принимает, к примеру:

TForm.Anchors

[Stilet]

type TAnchors = set of TAnchorKind;
type TAnchorKind = (akTop, akLeft, akRight, akBottom);

Это же в хелпе описано

[Человек_Борща]

Нет, мне не надо знать, что это. Я знаю=)
Я хочу видить это у себя в программе. Не знаю как реализуется.

Как-то так?

const
  to1=0;
  to2=2;
  to3=3;

type
  TOptions = (to1,to2,to3);

?

[Stilet]

А-а-а.
Ну это тебе нуна почитать из классического паскаля

type
  TOptions = (to1,to2,to3);

И все. to - это не константы, их не нужно описывать. им итак назначается "индекс" по мере их всплывания в set-e.
А использовать в коде так:

if [to1] in Option then в переменной установленно to1

http://www.pascal.helpov.net/index/p...ts_programming

[phomm]

Аа, вон оно что, Человек_Борща а я как-то даже удивился когда ответил Вам что енумы смотрелись бы лучше для кода в какой-то Вашей теме, я полагал, Вы знаете..
Ну что ж :
enumerated types (можно глянуть справку по ним) представляют из себя пользовательский тип данных, описываются примерно так:

TCardType = (ctSpades, ctClubs, ctDiamonds, ctHearts ); // по Стингу ))

в реальности получаются как бы именованные константы последовательного диапазона, счёт идёт от 0.
номер такого значения можно получить Ord'ом, получить такое значение по номеру можно так : имя типа(номер), т.е. применительно к нашему примеру : TCardType(1)= ctClubs
Рекомендую ещё почитать справку, там есть кое-какие тонкости простых и нумерованных енумов
Образовывать сеты (наборы значений) из таких данных можно так:

TCardTypes = set of TCardType;
var redcards : Tcardtypes;
...
redcards := ctDiamonds+ctHearts ; // теперь в redcards 2 из 4 значений

тут же справку по сетам рекомендую - изучить оператор in и функции include , exclude

[Человек_Борща]

Благодарю, очень полезный ответ=)

[Человек_Борща]

Реализовал:

type
  TSheduleTaskActionSet=(saStart,saStop,saRestart);
  TSheduleTaskAction=set of TSheduleTaskActionSet;

но при коде:

   case aTask.Action of
   saStart: LI.Caption:=RssaStart;
   saStop: LI.Caption:=RssaStop;
   saRestart: LI.Caption:=RssaRestart;
   end;

выпадает ошибка, несовместимости типов Integer и TSheduleTaskActionSet;

[Error] SheduleTaskMgrUnit.pas(68): Ordinal type required
[Error] SheduleTaskMgrUnit.pas(69): Incompatible types: 'Integer' and 'TSheduleTaskActionSet'
[Error] SheduleTaskMgrUnit.pas(70): Incompatible types: 'Integer' and 'TSheduleTaskActionSet'
[Error] SheduleTaskMgrUnit.pas(71): Incompatible types: 'Integer' and 'TSheduleTaskActionSet'
[Fatal Error] ProccesUnit.pas(8): Could not compile used unit 'SheduleTaskMgrUnit.pas'
[Fatal Error] Internal error: U2425

где баг?

и как через комбобокс.итеминдекс передать тип?
пробовал так:

        st := TSheduleTask.Create;
        st.Action := TSheduleTaskAction(ActionBox.ItemIndex);

не воркает..

[Аватар]

Если Action типа TSheduleTaskAction, то так нельзя. Можно если тип TSheduleTaskActionSet. TSheduleTaskAction - множество и проверка if saStart in Action then ...

[evg_m]

case [saStart,saStop] of //что делать не скажет никто

зачем здесь множество
исходя из именований и приведенного кода
aTask.Action должно быть TSheduleTaskActionSet , т.е. ОДНО ИЗ (saStart,saStop,saRestart) НО не TSheduleTaskAction их набором (set of TSheduleTaskActionSet) .

[phomm]

Я может не понял, но вроде сет тут просто не нужен, используем его, коли мы хотим хранить вместе несколько разнозначимых значений одного типа (енума), а если не надо несколько, а только всегда одно значение, то выкинуть вообще сет, оставить везде только енум-тип TSheduleTaskAction (обозвать енум словом с set на конце и сет по такому же имени, но без set - разрыв :D )
тогда его (енум) можно будет проверять в кейсах и передавать из комбобокса с приведением типа.

ПС то же , что высказал evg_m, но иными словами

К слову - когда я говорил о полиморфмизме, я намекал на то, что можно сделать ещё изящней на классах и не понадобится куча кейсов, (могу даже предоставить пример), но, сейчас уже думаю, что в данной задаче это будет избыточно.

И ещё кстати - очень люблю пользоваться RTTI енумов и функциями GetEnumName и GetEnumValue - дичайше удобные вещи для перевода енумов сразу в строки и обратно (в примере , который я предлагаю, это есть, коли таки надо - в личку )