Текущий архив: 2004.07.25;
Скачать: CL | DM;

Вниз

My Type   Найти похожие ветки 

← →
ormada ©   (2004-07-10 12:21) [0]

Доб день!
Вот захотелось сделать свой тип
делаю так

Const
 Sucsess                               = 1;
 Failed                                = 2;
 UnKnown                               = 3;

Type
 TStatus = (Sucsess, Failed, UnKnown);

дельфи говорит непраильно должно быть перечисление
а как тогда сделан тип допустим TAllign=(Aleft,Aright)
Aleft ведь константа ?
Подскажите плиз как мне его праильно объявить ...

---

← →
MBo ©   (2004-07-10 12:52) [1]

Enumerated types в хелпе

---

← →
Семен Сорокин ©   (2004-07-10 14:01) [2]

Type
TStatus = (Sucsess = 1, Failed, UnKnown);

Ord(Sucsess) = 1
TStatus(1) = Sucsess

---

Страницы: 1 вся ветка

Текущий архив: 2004.07.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.024 c