Совсем плохой стал. Чую что дело простое, но ручник никак не отключается. Хочу создать тип данных для денег. Застрял на том, как определить тип с определёнными значениями целых чисел (для номиналов купюр)??? По логике надо перечислимый тип делать, но там нельзя в качестве значений числа ставить. Мысли отсутствуют. Кто пнёт в нужную сторону?

Цель какая?
Какие действия, операции предполагаются?

> По логике надо перечислимый тип делать, но там нельзя в
> качестве значений числа ставить

Давно уже можно. В D7 точно можно

> Давно уже можно. В D7 точно можно

У меня как раз D7 и нифига не можно :( [Error] : Identifier expected but number found

> Цель какая?
> Какие действия, операции предполагаются?

сделать программу расчёта купюр для выдачи сдачи.

> Труп Васи Доброго ©   (19.11.08 15:31) [3]


OrdType=(MoneyA=1,MoneyB=2,MoneyC=3);

> сделать программу расчёта купюр для выдачи сдачи.


Бабки разные?

> OrdType=(MoneyA=1,MoneyB=2,MoneyC=3);

Так я уже сделал, не очень удобно, да и как то "криврвато" смотрится маскировать целое число за идентификатором.
Потом надо будет всякие лишние ORDы лепить, чтобы номинал узнать и на количество множить.
Блин, неужели нельзя просто создать ограниченный тип из десяти интеджеров???

> Бабки разные?

Ну а где ты видел одинаковые бабки? Они же разного номинала.

> OrdType=(MoneyA=1,MoneyB=2,MoneyC=3);

Так я уже сделал, не очень удобно, да и как то "криврвато" смотрится маскировать целое число за идентификатором.
Потом надо будет всякие лишние ORDы лепить, чтобы номинал узнать и на количество множить.
Блин, неужели нельзя просто создать ограниченный тип из десяти интеджеров???

> Бабки разные?

Ну а где ты видел одинаковые бабки? Они же разного номинала.

> Труп Васи Доброго ©   (19.11.08 15:40) [6]


type A=1..10;

> Ну а где ты видел одинаковые бабки? Они же разного номинала.


Я имею ввиду конвертацию одной валюты в другую.
С дальнейшим намеком на Tcustomvariant.
Либо на запись с операторами.

> type A=1..10;

Ты где видел такие номиналы от 1 до 10???
Мне не надо 1..10, чтобы потом по номеру где то выискивать какому номиналу соответсвует №4 или 5. Хотелось бы иметь тип с набором значений например для рубля TRubl = (5000, 1000, 500, 100, 50, 10, 5, 2, 1); Вот что надо! Но так нельзя.

Вот ведь облом! Похоже на самом деле не получится так сделать :( Жаль, подстрелили простую идею на взлёте. Придётся городить всякие (м1=5000, м2=1000 и т.д.

> TRubl = (5000, 1000, 500, 100, 50, 10, 5, 2, 1); Вот что надо! Но так нельзя.

- интересно, а к какому типу тогда будет относиться TRubl(1000)+TRubl(1)?

Сделай класс и не мучайся.

> всякие (м1=5000, м2=1000 и т.д.

с ручника снимись
const RublCoins: array[TRuNominals]of integer = (,,)

а лучше вообще как входной параметр в виде открытого массива

> Труп Васи Доброго  (19.11.2008 15:40:06)  [6]

Ты не понял, ты замени цифирь OrdType=(otРубль=1,otПятак=5,otЧервонец=10);