К-во елементов

← →
Alibaba © (2003-08-18 05:17) [0]

Всем привет.

Я описал тип
type
TChange = (chRegular, chBegDate, chEndDate, chMassht, chDaysWeek, chDesc);

Как мне получить количество елементов в типе TChange?
В данном случае - 6.

Как мне получить эту цифру???
High(TChange) - нет.
Length(TChange) - нет.
Size(TChange) - нет.

Что еще попробовать?

← →
Ученик © (2003-08-18 06:52) [1]

Ord(High(TChange)) + 1

GetTypeData(TypeInfo(TChange))^.MaxValue + 1

← →
app © (2003-08-18 07:36) [2]

Alibaba © (18.08.03 05:17)
Low, High и Ord применимы к перечисляемым типам, но надо быть острожнее, поскольку High может быть не равен Ord, начиная с Д6.

Скажи для чего тебе это нужно и тогда может быть будет более квалифицированный совет.

Для непрерывного ряда формула следуюящая:

Length := Ord(High(Tip)) - Ord(Low(Tip)) + 1

← →
Skier © (2003-08-18 09:06) [3]

>Alibaba © (18.08.03 05:17)

> High(TChange) - нет.

Почему нет ?
Просто надо единичку прибавить поскольку chRegular это 0
(если привести), а не 1

← →
Anatoly Podgoretsky © (2003-08-18 09:08) [4]

Skier © (18.08.03 09:06) [3]
Этов частном случае!
TChange = (chRegular=1, chBegDate, chEndDate, chMassht, chDaysWeek, chDesc);

← →
Anatoly Podgoretsky © (2003-08-18 09:08) [5]

и еще сложнее
TChange = (chRegular=1, chBegDate, chEndDate, chMassht, chDaysWeek, chDesc=20);

>Anatoly Podgoretsky © (18.08.03 09:08) [4]

> Это в частном случае!

Безусловно ! Кто же спорит ?!
Но автор спрашивает для своего конкретного типа

Спасибо большое!
Сработало: N:=Ord(High(TChange)) + 1;

К-во елементов Найти похожие ветки