[РЕШЕНО] Предустановленные наборы для Case
Добавлено: 15.06.2012 10:04:37Пишу что-то вроде
Я хочу выделить из этого перечня элементы по группам, например:
и затем использовать
Могу ли я такое сделать?
Добавлено спустя 2 часа 2 минуты 38 секунд:
решил через макросы -
- Код: Выделить всё
Type BPropretyKind = (
ppkUnknow = 0,
ppkFirst = 1,
ppkString = 1,
ppkStrings = 2,
ppkInteger = 3,
ppkIntegers = 4,
ppkDouble = 5,
ppkDoubles = 6,
ppkDate = 7,
ppkDateTime = 8,
ppkDateTimes = 9,
ppkTime = 10,
ppkPea = 11,
ppkPeas = 12,
ppkHolders = 13,
ppkBoolean = 14,
ppkBooleans = 15,
ppkOther = 16,
ppkLast = 16);
Я хочу выделить из этого перечня элементы по группам, например:
- Код: Выделить всё
ppkObject = [ppkPea, ppkPeas, ppkHolder];
ppkPrimitive = [ppkString, ppkInteger, ppkDouble];
и затем использовать
- Код: Выделить всё
Case Kind Of // Кind типа BPropretyKind
ppkObject: SomeAction;
ppkPrimitive: OtherAction;
End;
Могу ли я такое сделать?
Добавлено спустя 2 часа 2 минуты 38 секунд:
решил через макросы -
- Код: Выделить всё
{$define ppkPlainPlural :=
ppkStrings,
ppkIntegers,
ppkDoubles,
ppkDateTimes,
ppkBooleans
}
{$define ppkPlain :=
ppkString,
ppkInteger,
ppkDouble,
ppkDate,
ppkDateTime,
ppkTime,
ppkBoolean
}