typ wyliczeniowy o zadanych wartosciach

0

witam potrzebuje miec taki typ wyliczeniowy,
na ktorym bede mogl robic rozne operacje matematyczno-logiczne....
Do tego wydaje mi sie ze potrzebuje nadac tym wartosciom nie_kolejne wartosci liczbowe.
(w przypadku standardowego typu wyliczeniowego, wartosci liczbowe przydzielane sa kolejno)

chodzi o to ze wartosci przyjmowane przez zmienne tego typu dziela sie na kilka grup,
no i najchetniej nadalbym im wartosci w taki sposob

mojStatus = (
st_ok = 0,
st_warning = 10,
  st_warning_sredni = 11,
  st_warning_powazny = 12,
st_alarm = 20,
  st_alarm_A = 21,
  st_alarm_B = 22,
  st_alarm_C = 23,
st_costam = 30,
  st_costam_X = 31,
  st_costam_Y = 32);

i dzieki temu dzielac wartosc mojStatus przez 10 otrzymywalbym w prosty sposob informacje do jakiej grupy nalezy dana wartosc.
przyklad:

  TreeView1.items[i].imageindex := Integer(MojStatus[i]) div 10;

Mam nadzieje ze sie jasno wyrazilem :-|
Czy istnieje mozliwosc zrealizowania czegos takiego w Delphi??

0
type TMojStatus = (st_ok = 0,
      st_warning = 10, st_warning_sredni = 11, st_warning_powazny = 12,
      st_alarm = 20, st_alarm_A = 21, st_alarm_B = 22, st_alarm_C = 23,
      st_costam = 30, st_costam_X = 31, st_costam_Y = 32);

Najnormalniej w świecie.

1 użytkowników online, w tym zalogowanych: 0, gości: 1